# \donttest{
data(ko)
ko$dose_num <- as.numeric(as.character(ko$dose))
fit <- fit_demand_mixed(ko, y_var = "y_ll4", x_var = "x",
id_var = "monkey", factors = "drug",
equation_form = "zben")
trends <- get_demand_param_trends(fit, covariates = "dose_num",
specs = ~ drug)
# }
Run the code above in your browser using DataLab