# NOT RUN {
str(Elderly)
attach(Elderly)
stripchart(x=list(X98percent,X85percent),method="stack",pch=19,
col=c("red","blue"),group.names=c("1998","1985"))
cor(X98percent,X85percent)
detach(Elderly)
# }
Run the code above in your browser using DataLab