tiepolo: Above ground biomas calculation

In adalardo/samplePlotR: Sample plots from a cartesian space and return descriptive statistics

Description

There several alometric equations to use. Possibilities are: tiepolo Tiepolo et al. (2002) $$ AGB = 21.297 - 6.953 dbh + 0.740 (dbh)^2 $$ where: dbh diameter at breast high (cm)

scatena Scatena et al. 1993 DBH only: $$ AGB = exp(-2.399 + 2.475 x ln(dbh)) $$ DBH and Plant Height $$ AGB = exp(-3.228 + 0.95 x ln(dbh^2 x H)) $$ DBH, Height and WD $$ AGB = exp(- 3.098 + 0.994 x ln(dbh^2 x H x wd)) $$ Chave 2014 chave In this pan-tropical allometric model, the specific wood density is required. $$ AGB_est = 0.0673 x (wd x dbh^2 x H)^0.976 $$

burgdeli Burger e Delitti 2008 $$ AGB_est = exp(-3.068 + 2.522 * log(dbh)) $$ $$ AGB_est = exp(-3.676 + 0.951 x ln(dbh^2 x H)) $$

Usage

tiepolo(dbh, H = NULL, wd = NULL)

Arguments

dbh	numeric vector with diameter at breast height in cm
H	numeric vector with plants height
wd	numeric vector with wood density

Value

the above ground biomass

Author(s)

Alexandre Adalardo de Oliveira and Paulo Inacio Prado [e-mail]

References

SCATENA, F.N., SILVER, W., SICCAMA, T., JOHNSON, A. & SÁNCHEZ, M.J. 1993. Biomass and nutrient content of the Bisley Experimental Watersheds, Luquillo Experimental Forest, Puerto Rico, before and after Hurricane Hugo, 1989. Biotropica 25(1):15-27.

TIEPOLO, G., CALMON, M. & FERETTI, A.R. 2002. Measuring and Monitoring Carbon Stocks at the Guaraqueçaba Climate Action Project, Paraná, Brazil. In: International Symposium on Forest Carbon Sequestration and Monitoring. Extension Serie Taiwan Forestry Research Institute 153:98-115.

BURGER D.M.; DELITTI, W.B.C. allometric models for estimating the phytomass of a secondary Atlantic Forest area of southeastern Brazil. Biota Neotrop.8 (4)

See Also

bootree

Examples

## Not run: 
bio = data.frame(dbh = rnorm(10, 10, 2), H= runif(10, 2, 8),
                 wd = rep(0.52,10), plots = rep(c(1,2),5))
wich(bio, scatena(dbh, H, wd))
wich(bio, chave(dbh, H, wd))
wich(bio, burgdeli(dbh, H, wd))

## End(Not run)

adalardo/samplePlotR documentation built on May 31, 2019, 10:46 p.m.