# \donttest{
datafile <- system.file("extdata", "data_linear_mixed_model.csv",
package = "packDAMipd")
dataset = utils::read.table(datafile, header = TRUE, sep = ",",
na.strings = "NA",
dec = ".", strip.white = TRUE)
result <- use_linear_mixed_model("extro",
dataset = dataset,
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, package_mixed_model = NA)
# }
Run the code above in your browser using DataLab