data(TroutBR)
str(TroutBR)
head(TroutBR)
op <- par(mfrow=c(1,2),pch=19)
plot(tl~age,data=TroutBR,subset=species=="Brown",main="Brown Trout")
plot(tl~age,data=TroutBR,subset=species=="Rainbow",main="Rainbow Trout")
par(op)
Run the code above in your browser using DataLab