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