# NOT RUN {
data(all_biodepth)
allVars <- qw(biomassY3, root3, N.g.m2, light3, N.Soil, wood3, cotton3)
germany <- subset(all_biodepth, all_biodepth$location == "Germany")
vars <- whichVars(germany, allVars)
# re-normalize N.Soil so that everything is on the same
# sign-scale (e.g. the maximum level of a function is
# the "best" function)
germany$N.Soil <- -1 * germany$N.Soil +
max(germany$N.Soil, na.rm = TRUE)
germanyThresh <- getFuncsMaxed(germany, vars,
threshmin = 0.50,
threshmax = 0.60, prepend = c("plot", "Diversity"), maxN = 7
)
# }
Run the code above in your browser using DataLab