# NOT RUN {
library(vegtable)
## Example from Alvarez (2017)
data(Wetlands)
Wetlands_veg@header <- make_cocktail(Wetlands, Wetlands_veg, cover="percen")
summary(as.factor(Wetlands_veg@header$Syntax))
## Same but only for two vegetation units
data(Wetlands)
Wetlands_veg@header <- make_cocktail(Wetlands, Wetlands_veg,
which=c("HY1","HY2"), cover="percen")
summary(as.factor(Wetlands_veg@header$Syntax))
# }
Run the code above in your browser using DataLab