> rm(list=ls())
> library(foreign)
> data.spss
> head(data.spss)
manufact model sales resale type price engine_s horsepow wheelbas
1 Acura Integra 16.919 16.360 Automobile 21.50 1.8 140 101.2
2 Acura TL 39.384 19.875 Automobile 28.40 3.2 225 108.1
3 Acura CL 14.114 18.225 Automobile NA 3.2 225 106.9
4 Acura RL 8.588 29.725 Automobile 42.00 3.5 210 114.6
5 Audi A4 20.397 22.255 Automobile 23.99 1.8 150 102.6
6 Audi A6 18.780 23.555 Automobile 33.95 2.8 200 108.7
width length curb_wgt fuel_cap mpg lnsales zresale ztype zprice zengine_
1 67.3 172.4 2.639 13.2 28 2.828437 -0