model.list <- list(
mod1 = list(expr = vtot ~ I(dap^2) + I(dap^2 * atot^2) +I(d6),
pred.f = function(x, ...) x,
type = "lm"),
mod2 = list(expr = I(log(vtot)) ~ I(log(dap)) + I(log(atot)),
pred.f = function(x, ...) exp(x),
type = "lm"))
## example dataframe
df <- treevolruca2
head(df)
## fitting models to dataframe
bankfit(modlist = model.list, data = df)
Run the code above in your browser using DataLab