if (FALSE) {
model <- load_example_model("pheno")
has_covariate_effect(model, "CL", "WGT")
model <- remove_covariate_effect(model, "CL", "WGT", keep_fixed=FALSE)
has_covariate_effect(model, "CL", "WGT")
}
Run the code above in your browser using DataLab