data(ChinookArg)
str(ChinookArg)
head(ChinookArg)
op <- par(mfrow=c(2,2),pch=19)
plot(w~tl,data=ChinookArg,subset=loc=="Argentina")
plot(w~tl,data=ChinookArg,subset=loc=="Petrohue")
plot(w~tl,data=ChinookArg,subset=loc=="Puyehue")
par(op)
Run the code above in your browser using DataLab