# NOT RUN {
## Petersen's data
data("PetersenCL", package = "sandwich")
m <- lm(y ~ x, data = PetersenCL)
## comparison of different standard errors
set.seed(1)
cbind(
"classical" = sqrt(diag(vcov(m))),
"HC-cluster" = sqrt(diag(vcovCL(m, cluster = PetersenCL$firm))),
"BS-cluster" = sqrt(diag(vcovBS(m, cluster = PetersenCL$firm)))
)
# }
Run the code above in your browser using DataLab