data(acre)
sel <- c('MATRREC', 'RUMEACT', 'SILENOC', 'APHAARV', 'MYOSARV', 'DESUSOP', 'ARTE#VU')
mo <- HOF(acre[match(sel, names(acre))], acre.env$PH_KCL, M=1, bootstrap=NULL)
par(mar=c(2,2,1,.1))
plot(mo, para=TRUE)
#' An example for plottype='all' to show species responses for the species within
#' the most acidic and the most calcareous vegetation plot.
if (FALSE) {
allSpeciesFromAnAcidicPlot <- acre['57',] > 0
mods.acidic <- HOF(acre[,allSpeciesFromAnAcidicPlot],acre.env$PH_KCL,M=1,bootstrap=NULL)
allSpeciesFromAnCalcareousPlot <- acre['87',] > 0
mods.calc <- HOF(acre[,allSpeciesFromAnCalcareousPlot],acre.env$PH_KCL,M=1,bootstrap=NULL)
autolayout(2)
plot(mods.acidic, plottype='all', main='Plot with low pH')
abline(v=acre.env$PH_KCL[acre.env$RELEVE_NR == '57'])
names(mods.acidic)
plot(mods.calc, plottype='all', main='Plot with high pH')
abline(v=acre.env$PH_KCL[acre.env$RELEVE_NR == '87'])
names(mods.calc)
}
Run the code above in your browser using DataLab