# 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