## Creating data set 'dune_veg'
library(vegan)
## Load data from vegan
data(dune)
data(dune.env)
## Conversion to vegtable
dune_veg <- data.frame(
species = colnames(dune), t(dune),
stringsAsFactors = FALSE, check.names = FALSE
)
dune_veg <- df2vegtable(dune_veg, species = 1)
summary(dune_veg)
## Adding environmental variables
dune.env$ReleveID <- as.integer(rownames(dune.env))
header(dune_veg) <- dune.env
summary(dune_veg)
Run the code above in your browser using DataLab