# 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 3d
plotStem3d(hi,di,alpha=1,col="forestgreen")
# }
Run the code above in your browser using DataLab