data(BullTroutRML1)
str(BullTroutRML1)
head(BullTroutRML1)
op <- par(mfrow=c(1,2),pch=19)
plot(mass~fl,data=BullTroutRML1,subset=era=="1977-79",main="1977-79")
plot(mass~fl,data=BullTroutRML1,subset=era=="2001",main="2001")
par(op)
Run the code above in your browser using DataLab