if (FALSE) {
## list of example models
model.list <- list(
mod1 = list(expr = vtot ~ I(dap^2) + I(dap^2 * atot^2) +I(d6),
pred.f = function(x, ...) x,
summodel = function(x, ...) datana::modresults(x)),
mod2 = list(expr = I(log(vtot)) ~ I(log(dap)) + I(log(atot)),
pred.f = function(x, ...) exp(x),
summodel = function(x, ...) datana::modresults(x)))
## example dataframe
df <- treevolruca2
head(df)
## fitting models to dataframe and saving them
bankfit(models = model.list, data = df, file = "out.rdata")
## using fitted models file from biometrics::bankfit()
bankpred(file = "out.rdata", data = df)
}
Run the code above in your browser using DataLab