data(EuroPerchTJ)
str(EuroPerchTJ)
head(EuroPerchTJ)
op <- par(mfrow=c(1,2),pch=19)
plot(fl~age,data=EuroPerchTJ,subset=sex=="female",main="Female")
plot(fl~age,data=EuroPerchTJ,subset=sex=="male",main="Male")
par(op)
Run the code above in your browser using DataLab