calc.max.sdi {rconifers} | R Documentation |
Returns the maximum stand density index, given the current species mapping and variant.
calc.max.sdi( x )
x |
a sample.data object. |
The calc.max.sdi
function returns a numeric value that
represents the maximum stand density index limit for the input
plants/plots data. The value is used to compute the $x_0$ element in
the sample.data
object, which is then used to control
competition induced mortality.
Jeff D. Hamann jeff.hamann@forestinformatics.com,
Martin W. Ritchie mritchie@fs.fed.us
Hann, D.W. and C.H. Wang. 1990. Mortality equations for individual trees in southwest Oregon. Oregon State University, Forest Research Laboratory, Corvallis, Oregon. Research Bulletin 67. 17p.
Ritchie, M. and J. Hamann. 2006. Modeling dynamics of competing vegetation in young conifer plantations of northern California and southern Oregon, USA. Canadian Journal of Forest Research 36(10): 2523-2532.
Ritchie, M. and J. Hamann. 2008. Individual-tree height-, diameter- and crown-width increment equations for young Douglas-fir plantations. New Forests 35(2):173-186.
Ritchie, M.W. 2008. User's Guide and Help System for CONIFERS: A Simulator for Young Conifer Plantations Version 4.10. See http://www.fs.fed.us/psw/programs/ecology_of_western_forests/projects/conifers/
Vaughn, Nicholas. 2007. An individual-tree model to predict the annual growth of young stands of Douglas-fir (Pseudotsuga menziesii (Mirbel) Franco) in the Pacific northwest. M.S. Thesis, University of Washington. 91p.
calc.max.sdi
,
impute
,
project
,
rand.seed
,
rconifers
,
sample.data
,
set.species.map
,
set.variant
,
smc
,
summary.sample.data
,
swo
,
thin
library( rconifers ) ## set the variant to the SWO variant set.species.map( set.variant(0) ) # load and display CONIFERS swo example plots data( plots.swo ) print( plots.swo ) # load and display CONIFERS example plants data( plants.swo ) print( plants.swo ) # create the sample.data list object sample.swo <- list( plots=plots.swo, plants=plants.swo, age=3, x0=0.0 ) class(sample.swo) <- "sample.data" # print the maximum stand density index for the current settings print( calc.max.sdi( sample.swo ) )