# NOT RUN {
data(LJCisco)
str(LJCisco)
head(LJCisco)
op <- par(mfrow=c(1,2))
plot(tl~age,data=LJCisco,subset=loc=="NE",main="northeast")
plot(tl~age,data=LJCisco,subset=loc=="S",main="south")
par(op)
# }
Run the code above in your browser using DataLab