cars {openintro} | R Documentation |
A data frame with 54 rows and 6 columns. The columns represent the variables type
, price
, mpgCity
, driveTrain
, passengers
, weight
for a sample of 54 cars from 1993. This data is a subset of the Cars93
data set from the MASS
package.
data(cars)
A data frame with 54 observations on the following 6 variables.
type
large
, midsize
, and small
. price
mpgCity
driveTrain
4WD
, front
, and rear
. passengers
weight
These cars represent a random sample for 1993 models that were in both Consumer Reports and PACE Buying Guide. Only vehicles of type 'small'
, 'midsize'
, and 'large'
were include.
Further description can be found in Lock (1993). Use the URL http://www.amstat.org/publications/jse/v1n1/datasets.lock.html.
Lock, R. H. (1993) 1993 New Car Data. Journal of Statistics Education 1(1).
data(cars) #===> vehicle price by type <===# par(mfrow=c(1,1)) histPlot(cars$price[cars$type=='small'], probability=TRUE, hollow=TRUE, xlim=c(0,50)) histPlot(cars$price[cars$type=='midsize'], probability=TRUE, hollow=TRUE, add=TRUE, border='red', lty=3) histPlot(cars$price[cars$type=='large'], probability=TRUE, hollow=TRUE, add=TRUE, border='blue', lty=4) legend('topright', lty=2:4, col=c('black', 'red', 'blue'), legend=c('small', 'midsize', 'large')) #===> vehicle price versus weight <===# plot(cars$weight, cars$price, col=fadeColor('magenta', '88'), pch=20, cex=2) #===> mileage versus weight <===# plot(cars$weight, cars$mpgCity, col=fadeColor('chocolate4', '88'), pch=20, cex=2) temp <- c(seq(1000, 5000, 100), rev(seq(1000, 5000, 100)), 1000) polygon(temp, 87.11 - 0.03508*temp + 0.000004432*temp^2 + 7*c(rep(-1, 41), rep(1, 41), -1), col=fadeColor('black', '22'), border=fadeColor('black', '00'))