## Not run:
#
# # Make a stand consisting of three 'toona' plants.
# toonastand <- makeStand(list(toona,toona,toona),
# xyz=data.frame(x=c(0,200,100),
# y=c(50,50,300),
# z=c(0,0,0)))
#
# # The print method shows a very short summary:
# toonastand
#
# # Plot the stand
# plot(toonastand)
#
# ## End(Not run)
Run the code above in your browser using DataLab