data(WhitefishGSL)
str(WhitefishGSL)
head(WhitefishGSL)
op <- par(mfrow=c(3,2),pch=19)
plot(log(area.IE)~age,data=WhitefishGSL)
plot(log(area.II)~age,data=WhitefishGSL)
plot(log(area.IV)~age,data=WhitefishGSL)
plot(log(area.V)~age,data=WhitefishGSL)
plot(log(area.IW)~age,data=WhitefishGSL)
par(op)
# can be reshaped to 'long' format with
## Not run:
# library(reshape)
# WhitefishGSL1 <- melt(WhitefishGSL,id.vars="age")
# names(WhitefishGSL1) <- c("age","area","number")
# ## End(Not run)
Run the code above in your browser using DataLab