data(ShadCR)
str(ShadCR)
head(ShadCR)
op <- par(mfrow=c(2,2),pch=19)
plot(agerA1~agerA2,data=ShadCR)
plot(agerB1~agerB2,data=ShadCR)
plot(agerC1~agerC2,data=ShadCR)
plot(agerA1~agerB1,data=ShadCR)
par(op)
Run the code above in your browser using DataLab