# timbeR The goal of timbeR is to provide functions for estimating log volumes and quantities from taper functions in the processing of forest inventories.

## Installation

You can install the CRAN version of the package as follows:

``install.packages("timbeR")``

You can also install the development version from GitHub with:

``````# install.packages("devtools")
devtools::install_github("sergiocostafh/timbeR")``````

## Example

As a basic example, we can fit a 5th degree polynomial to the `tree_scaling` dataset.

``````library(dplyr)
library(timbeR)

tree_scaling <- tree_scaling %>%
mutate(did = di/dbh,
hih = hi/h)

poli5 <- lm(did~hih+I(hih^2)+I(hih^3)+I(hih^4)+I(hih^5),tree_scaling)``````

And then we define the wood products:

``````assortments <- data.frame(
NAME = c('15-25','4-15'),
SED = c(15,4),
MINLENGTH = c(2.65,2),
MAXLENGTH = c(2.65,4.2),
LOSS = c(5,5)
)``````

And now we can estimate the volume and quantity of wood products in a tree stem. For ease of understanding, let’s simulate cutting logs on a single tree.

``````# Tree measurements
dbh <- 25
h <- 20

# Estimate logs volume and quantity
poly5_logs(dbh, h, coef(poli5), assortments)
#> \$volumes
#> # A tibble: 1 x 2
#>   `15-25` `4-15`
#>     <dbl>  <dbl>
#> 1   0.293  0.111
#>
#> \$logs
#> # A tibble: 1 x 2
#>   `15-25` `4-15`
#>     <dbl>  <dbl>
#> 1       3      2``````

Finally, we can generate the same result in a visual way, simulating the position of the logs along the tree stem.

``poly5_logs_plot(dbh, h, coef(poli5), assortments)`` 