price <- c(4099,4749,3799,4816,7827,5788,4453,5189,10372,4082,11385,14500,15906,3299,5705,4504,5104,3667,3955,3984,4010,5886,6342,4389,4187,11497,13594,13466,3829,5379,6165,4516,6303,3291,8814,5172,4733,4890,4181,4195,10371,4647,4425,4482,6486,4060,5798,4934,5222,4723,4424,4172,9690,6295,9735,6229,4589,5079,8129,4296,5799,4499,3995,12990,3895,3798,5899,3748,5719,7140,5397,4697,6850,11995) mpg <- c(22,17,22,20,15,18,26,20,16,19,14,14,21,29,16,22,22,24,19,30,18,16,17,28,21,12,12,14,22,14,15,18,14,20,21,19,19,18,19,24,16,28,34,25,26,18,18,18,19,19,19,24,17,23,25,23,35,24,21,21,25,28,30,14,26,35,18,31,18,23,41,25,25,17) foreign <- c('Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Domestic','Foreign','Foreign','Foreign','Foreign','Foreign','Foreign','Foreign','Foreign','Foreign','Foreign','Foreign','Foreign','Foreign','Foreign','Foreign','Foreign','Foreign','Foreign','Foreign','Foreign','Foreign','Foreign') weight <- c(2930,3350,2640,3250,4080,3670,2230,3280,3880,3400,4330,3900,4290,2110,3690,3180,3220,2750,3430,2120,3600,3600,3740,1800,2650,4840,4720,3830,2580,4060,3720,3370,4130,2830,4060,3310,3300,3690,3370,2730,4030,3260,1800,2200,2520,3330,3700,3470,3210,3200,3420,2690,2830,2070,2650,2370,2020,2280,2750,2130,2240,1760,1980,3420,1830,2050,2410,2200,2670,2160,2040,1930,1990,3170) auto <- data.frame(price, mpg, weight, foreign)