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

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")
::install_github("sergiocostafh/timbeR") devtools
```

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)
<- lm(did~hih+I(hih^2)+I(hih^3)+I(hih^4)+I(hih^5),tree_scaling) poli5
```

And then we define the wood products:

```
<- data.frame(
assortments 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
<- 25
dbh <- 20
h
# 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)`