# NOT RUN {
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")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab