# predict prestige score of occupation
require(effects)
data(BEPS)
linear.model <- glm(Europe ~ age + gender + economic.cond.national, data=BEPS)
summary(linear.model)
# compute wild cluster bootstrapped p-values
clust.wd.p <- cluster.wild(linear.model, BEPS, ~ vote, report = T)Run the code above in your browser using DataLab