# \donttest{
data(ko)
fit1 <- fit_demand_mixed(ko, y_var = "y_ll4", x_var = "x",
id_var = "monkey", equation_form = "zben",
random_effects = Q0 ~ 1)
fit2 <- fit_demand_mixed(ko, y_var = "y_ll4", x_var = "x",
id_var = "monkey", equation_form = "zben",
random_effects = Q0 + alpha ~ 1)
anova(fit1, fit2)
# }
Run the code above in your browser using DataLab