# NOT RUN {
data(afterthin)
par(mfcol=c(2,1),cex=0.7,mai=c(0.8,0.8,0.5,0.1))
linesplot(afterthin$CA,
afterthin$RBA,
group=afterthin$Plot:afterthin$Tree,
col.lin=as.numeric(afterthin$SDClass),cex=0,
xlab="Tree age",
ylab=expression("Ring basal area, "*mm^2))
linesplot(afterthin$Year,
afterthin$RBA,
group=afterthin$Plot:afterthin$Tree,
col.lin=as.numeric(afterthin$SDClass),cex=0,
xlab="Year",
ylab=expression("Ring basal area, "*mm^2))
# }
Run the code above in your browser using DataLab