Displaying 1 result from an estimated 1 matches for "tradvol".
Did you mean:
trados
2002 Dec 12
0
if problem in function
...pars1<- ?vrl?v.formh?jd.pars
pars2<- ?vrl?v.h?jd.pars
}
# then calculate volume for the tree (=trad) or snag (=h?gst)
if(tradhogst == "trad"){
tradvol<- exp(S?derberg(datamat, pars1)) *
(datamat$Diameter)^2 * pi / 40000
return(tradvol)
}
if(tradhogst== "h?gst"){
# som cylinder om h?jden ?r <3 m...