knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(ecocom)
abun <- rpois(n = 10, lambda = 3) scaled <- scale_weight(abun) c(base = sum(abun), scaled = scaled)
#vector of species abundance abun <- rpois(n = 10, lambda = 3) # vector of species trait trait <- rnorm(n = 10, mean = 10, sd = 3) calc_cw_moments(trait = trait, weight = abun)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.