# NOT RUN {
data(Croaker2)
str(Croaker2)
head(Croaker2)
op <- par(mfrow=c(1,2),pch=19)
plot(tl~age,data=Croaker2,subset=sex=="F",main="Female")
plot(tl~age,data=Croaker2,subset=sex=="M",main="Male")
par(op)
# }
Run the code above in your browser using DataLab