# NOT RUN {
## Abundance data
## Coerce dataset to a count matrix (data from Desachy 2004)
data("compiegne", package = "folio")
counts <- as_count(compiegne)
## Compute EPPM
counts_eppm <- eppm(counts)
## Compute PVI
counts_pvi <- pvi(counts)
plot_heatmap(counts_eppm)
# }
Run the code above in your browser using DataLab