Nothing
## ----echo = FALSE, message = FALSE--------------------------------------------
knitr::opts_chunk$set(collapse = T, comment = "#>")
knitr::opts_chunk$set(fig.width=7, fig.height=5)
options(tibble.print_min = 6L, tibble.print_max = 6L)
library(forestmangr)
## -----------------------------------------------------------------------------
library(forestmangr)
data(exfm20)
dados <- exfm20
dados
## -----------------------------------------------------------------------------
species_diversity(dados, "scientific.name")
## -----------------------------------------------------------------------------
similarity_matrix(dados, "scientific.name", "transect", index = "Jaccard")
## -----------------------------------------------------------------------------
similarity_matrix(exfm20, "scientific.name", "transect", index = "Jaccard", dendrogram = TRUE, n_groups = 3)
## -----------------------------------------------------------------------------
species_aggreg(dados, "scientific.name", "transect")
## -----------------------------------------------------------------------------
forest_structure(dados, "scientific.name", "dbh", "transect", 10000)
## -----------------------------------------------------------------------------
forest_structure(dados, "scientific.name", "dbh", "transect", 10000, "canopy.pos", "light")
## -----------------------------------------------------------------------------
bdq_meyer(dados, "transect", "dbh", 1000,licourt_index = 2)
## -----------------------------------------------------------------------------
classified <- diameter_class(dados,"dbh", "transect", 10000, 10, 10, "scientific.name")
head(classified)
## -----------------------------------------------------------------------------
classified <- diameter_class(dados,"dbh", "transect", 10000, 10, 10,
"scientific.name", cc_to_column=TRUE)
head(classified)
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.