Description Usage Arguments Value Author(s) Examples
View source: R/VisTaperShape3d.R
VisTaperShape3d is used for visualizing taper models in 3-D
1 | VisTaperShape3d(model,dbh,height,col, solid)
|
model, |
taper model as an object of class "lm" |
dbh, |
tree diameter at breast height, e.g. 35 cm |
height, |
tree height, e.g. 25 m |
col, |
taper color, e.g. "forestgreen" |
solid, |
if TRUE (default) returns a solid 3d model. If FALSE, returns a 3d grid model |
Nothing, but outputs a plot
Carlos Alberto Silva and Joao Paulo Sardo Madi
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | # Importing forest inventory data
data(ForestInv01)
# setting model parametersdbh and ht
hi<-ForestInv01[,2]
di<-ForestInv01[,3]
ht<-ForestInv01[,4]
dbh<-ForestInv01[,5]
# fitting the fifth-degree polynomial taper model
fit <- poly5Model(dbh,ht,di,hi, plotxy=TRUE)
dbh<-30 # cm
height<-25 # m
model<-fit
library(rgl)
# Plotting the taper model in 3-D
VisTaperShape3d(fit,dbh,height,col="forestgreen",solid=TRUE)
box3d()
grid3d(c("x+","y+"))
aspect3d(0.3,0.3,1)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.