# NOT RUN {
library(fwildclusterboot)
data(voters)
lm_fit <-lm(proposition_vote ~ treatment + ideology1 + log_income + Q1_immigration,
data = voters)
boot1 <- boottest(lm_fit,
B = 9999,
param = "treatment",
clustid = "group_id1")
boot2 <- boottest(lm_fit,
B = 9999,
param = "treatment",
clustid = c("group_id1", "group_id2"))
boot3 <- boottest(lm_fit,
B = 9999,
param = "treatment",
clustid = c("group_id1", "group_id2"),
sign_level = 0.2,
seed = 8,
beta0 = 2)
summary(boot1)
plot(boot1)
# }
Run the code above in your browser using DataLab