rForest (version 0.1.4)

VisTaperShape3d: 3-D visualization of taper models

Description

VisTaperShape3d is used for visualizing taper models in 3-D

Usage

VisTaperShape3d(model,dbh,height,col, solid)

Arguments

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

Value

Nothing, but outputs a plot

Examples

# NOT RUN {
# 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)

# }