# NOT RUN {
## Creating data set 'dune_veg'
library(vegtable)
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