WOODCARB3R: WOODCARB3R

## ----echo=FALSE, message=FALSE-------------------------------------------
knitr::opts_chunk$set(collapse = T, comment = NA)
library(WOODCARB3R)

## ------------------------------------------------------------------------
finalCarbonContribution()

## ------------------------------------------------------------------------
finalCarbonContribution(Years = 1945:2017, approach = "Atmospheric Flow", halflives = halfLives* 1.2)

## ---- fig.width=6, fig.height=4------------------------------------------
finalCarbonContribution(plot = TRUE)

## ------------------------------------------------------------------------
finalVariables()

## ------------------------------------------------------------------------
swpcarbontotal(c(1990,2015), onlytotal = FALSE, lumberpre = FALSE,
               approach = "Stock Change", halflives = halfLives * .9) 

## ------------------------------------------------------------------------
adj <- rnorm(13, 1, .15)
finalCarbonContribution(fsp = mapply(`*`,fracsawnwood,adj))

fsawncopy <- fracsawnwood
for (i in seq(fsawncopy)) {
  fsawncopy[,i] <- fsawncopy[,i] * rnorm(nrow(fsawncopy),1,.1)
}
finalCarbonContribution(fsawn = fsawncopy)