SMShiscar (R 2.13.1)

SMShiscar computes 4 histograms of mileage of US, Japanese, and European cars (carc.rda data). The histograms are different w.r.t. the group.

Download File

Multivariate Statistics: Exercises and Solutions

Tue, July 10 2012 by Dedy Dwi Prastyo

-

carc.rda


Description: -


rm(list=ls(all=TRUE))
graphics.off()
load("carc.rda")
x1 = carc$M[carc$C=="US"]
x2 = carc$M[carc$C=="Japan"]
x3 = carc$M[carc$C=="Europe"]
x4 = carc$M
y = seq(10,45,2.5) # bandwidth = 2.5
opar=par(mfrow=c(2,2))
hist(x1,y,ylab="mileage*E-2",main="",xlab="U.S. cars")
hist(x2,y,ylab="mileage*E-2",main="",xlab="Japanese cars")
hist(x3,y,ylab="mileage*E-2",main="",xlab="Europe cars")
hist(x4,y,ylab="mileage*E-2",main="",xlab="All cars")
par(opar)