# By making experiment beforehand (recommended)
df <- get_design("blocking")
models <- c("HD2022", "RW1972", "PKH1982")
exps <- lapply(models, function(m) {
make_experiment(df,
parameters = get_parameters(df, model = m),
model = m
)
})
comp <- compare_models(exps)
# By passing minimal arguments (not recommended; default parameters)
comp <- compare_models(df, models = models)
Run the code above in your browser using DataLab