data("SATcoaching", package = "clubSandwich")
library(clubSandwich)
library(robumeta)
full_model <- robu(d ~ 0 + study_type + hrs + test,
studynum = study,
var.eff.size = V,
small = FALSE,
data = SATcoaching)
res <- Wald_test_cwb(full_model = full_model,
constraints = constrain_equal(1:3),
R = 99)
if (requireNamespace("ggplot2", quietly = TRUE)) {
plot(res, fill = "darkred", alpha = 0.5)
}
Run the code above in your browser using DataLab