Nothing
dead.trees.growth <-
function (dt, growth, mort, this.period = this.period)
{
data.frame(dbh.mm = dt$dbh.mm[, this.period] +
growth[mort, "dbh.inc.mm"]/2,
height.dm = dt$height.dm[, this.period] +
growth[mort, "hgt.inc.dm"]/2)
}
## reassignInPackage("dead.trees.growth", "sitree", dead.trees.growth)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.