# 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)
germanyThresh <- getFuncsMaxed(germany, vars,
threshmin = 0.05,
threshmax = 0.99, prepend = c("plot", "Diversity"), maxN = 7
)
germanyLinearSlopes <- getCoefTab(funcMaxed ~ Diversity,
data = germanyThresh,
coefVar = "Diversity", family = quasipoisson(link = "identity")
)
getIndices(germanyLinearSlopes, germanyThresh, funcMaxed ~ Diversity)
# }
Run the code above in your browser using DataLab