str(Commute)
attach(Commute)
stripchart(x=list(X1980,X1990),method="stack",pch=1,cex=2,col=c("red","blue"),
group.names=c("1980","1990"),main="",xlab="minutes")
title(main="Commute Time")
boxplot(X1980,X1990,col=c("red","blue"),names=c("1980","1990"),horizontal=TRUE,las=1)
library(lattice)
commute <- stack(Commute)
commute[1:5,]
attach(commute)
stripplot(ind~values,jitter=TRUE)
dotplot(ind~values)
bwplot(ind~values)
remove(commute)
detach(Commute)
Run the code above in your browser using DataLab