data(swedishpines)
a <- allstats(swedishpines,dataname="Swedish Pines")
## Not run:
# plot(a)
# plot(a, subset=list("r<=15","r<=15","r<=15","r<=50"))
# ## End(Not run)
Run the code above in your browser using DataLab