if (FALSE) {
db <- 'elbaue'
veg <- tv.veg(db, cover.transform='sqrt', check.critical = FALSE)
site <- tv.site(db, verbose = FALSE)
#' Mean indicator values of Ellenberg F values
mEIV_F <- cwm(veg, ivname = 'OEK_F', method = 'mean')
plot(site$MGL, mEIV_F, xlab = 'Mean groundwater level')
}
Run the code above in your browser using DataLab