# NOT RUN {
with(data = Elderly,
stripchart(x = list(percent1998, percent1985), method = "stack", pch = 19,
col = c("red","blue"), group.names = c("1998", "1985"))
)
with(data = Elderly, cor(percent1998, percent1985))
# }
# NOT RUN {
library(ggplot2)
ggplot2::ggplot(data = Elderly, aes(x = percent1985, y = percent1998)) +
geom_point() +
theme_bw()
# }
Run the code above in your browser using DataLab