# \donttest{
datafile <- system.file("extdata", "data_linear_mixed_model.csv",
package = "packDAMipd")
dt = utils::read.csv(datafile, header = TRUE)
formula <- form_expression_mixed_model_lme4("extro",
dataset = dt,
fix_eff = c("open", "agree", "social"),
fix_eff_interact_vars = NULL,
random_intercept_vars = c("school", "class"),
nested_intercept_vars_pairs = list(c("school", "class")),
cross_intercept_vars_pairs = NULL,
uncorrel_slope_intercept_pairs = NULL,
random_slope_intercept_pairs = NULL, family = "binomial", link = NA
)
# }
Run the code above in your browser using DataLab