# NOT RUN {
# Importing forest inventory data
data(ForestInv01)
# Subsetting Tree 1
tree1<-subset(ForestInv01,ForestInv01[,1]==1)
hi<-tree1$hi
di<-tree1$di
# Plotting stem 2d
plotStem2d(hi,di, col="forestgreen")
# }
Run the code above in your browser using DataLab