if (FALSE) {
requireNamespace("clubSandwich")
R <- clubSandwich::constrain_zero(2:3, coef(lm_fit))
wboottest <-
mboottest(
object = lm_fit,
clustid = "group_id1",
B = 999,
R = R
)
print(wboottest)
}
Run the code above in your browser using DataLab