# NOT RUN {
data(swedishpines)
a <- allstats(swedishpines,dataname="Swedish Pines")
# }
# NOT RUN {
plot(a)
plot(a, subset=list("r<=15","r<=15","r<=15","r<=50"))
# }
Run the code above in your browser using DataLab