Nothing
#' Cluster-Adjusted Confidence Intervals And p-Values For GLM
#'
#' Computes p-values and confidence intervals for GLM models based on cluster-specific model estimation (Ibragimov and Muller 2010). A separate model is estimated in each cluster, and then p-values and confidence intervals are computed based on a t/normal distribution of the cluster-specific estimates.
#'
#' @param mod A model estimated using \code{ivreg}.
#' @param dat The data set used to estimate \code{mod}.
#' @param cluster A formula of the clustering variable.
#' @param ci.level What confidence level should CIs reflect?
#' @param report Should a table of results be printed to the console?
#' @param drop Should clusters within which a model cannot be estimated be dropped?
#' @param return.vcv Should a VCV matrix and the means of cluster-specific coefficient estimates be returned?
#'
#' @return A list with the elements
#' \item{p.values}{A matrix of the estimated p-values.}
#' \item{ci}{A matrix of confidence intervals.}
#' @author Justin Esarey
#' @note Confidence intervals are centered on the cluster averaged estimate, which can diverge from original model estimates under several circumstances (e.g., if clusters have different numbers of observations). Consequently, confidence intervals may not be centered on original model estimates. If drop = TRUE, any cluster for which all coefficients cannot be estimated will be automatically dropped from the analysis.
#' @examples
#' \dontrun{
#'
#' # example: pooled IV analysis of employment
#' require(plm)
#' require(AER)
#' data(EmplUK)
#' EmplUK$lag.wage <- lag(EmplUK$wage)
#' emp.iv <- ivreg(emp ~ wage + log(capital+1) | output + lag.wage + log(capital+1), data = EmplUK)
#'
#' # compute cluster-adjusted p-values
#' cluster.im.e <- cluster.im.ivreg(mod=emp.iv, dat=EmplUK, cluster = ~firm)
#'
#' }
#' @import AER
#' @rdname cluster.im.ivreg
#' @references Esarey, Justin, and Andrew Menger. 2017. "Practical and Effective Approaches to Dealing with Clustered Data." \emph{Political Science Research and Methods} forthcoming: 1-35. <URL:http://jee3.web.rice.edu/cluster-paper.pdf>.
#' @references Ibragimov, Rustam, and Ulrich K. Muller. 2010. "t-Statistic Based Correlation and Heterogeneity Robust Inference." \emph{Journal of Business & Economic Statistics} 28(4): 453-468. <DOI:10.1198/jbes.2009.08046>.
#' @import stats
#' @importFrom utils write.table
#' @export
cluster.im.ivreg<-function(mod, dat, cluster, ci.level = 0.95, report = TRUE, drop = FALSE, return.vcv = FALSE){
form <- mod$formula # what is the formula of this model?
variables <- all.vars(form) # what variables are in this model?
clust.name <- all.vars(cluster) # what is the name of the clustering variable?
used.idx <- which(rownames(dat) %in% rownames(mod$model)) # what were the actively used observations in the model?
dat <- dat[used.idx,] # keep only active observations (drop the missing)
clust <- as.vector(unlist(dat[[clust.name]])) # store cluster index in convenient vector
G<-length(unique(clust)) # how many clusters are in this model?
ind.variables <- rownames(summary(mod)$coefficients) # what independent variables are in this model?
ind.variables.full <- names(coefficients(mod)) # what independent variables (incld drops) are in this model?
b.clust <- matrix(data = NA, nrow = G, ncol = length(ind.variables)) # a matrix to store the betas
n.clust <- c()
G.o <- G
for(i in 1:G){
clust.ind <- which(clust == unique(clust)[i]) # select obs in cluster i
clust.dat <- dat[clust.ind,] # create the cluster i data set
clust.mod.call <- mod$call # recover the original model call
clust.mod.call[[3]] <- quote(clust.dat) # modify the model call to use the cluster data set
clust.mod <- suppressWarnings(tryCatch(eval(clust.mod.call), # run a model on the cluster i data
error = function(e){return(NULL)}))
fail <- is.null(clust.mod) # determine whether the ivreg model was correctly fitted
# should we stop if one cluster-specific model does not converge?
if(drop==FALSE){
if(fail==T){stop("cluster-specific model returned error (try drop = TRUE)", call.=FALSE)}
# detect whether variables were dropped in individual clusters
if(length(rownames(summary(clust.mod)$coefficients)) != length(ind.variables)){
stop("cluster-specific model(s) dropped variables; ensure that all variables vary within clusters", call.=FALSE)
}
b.clust[i,] <- summary(clust.mod)$coefficients[,1] # store the cluster i beta coefficient
}else{
if(fail==F){
# detect whether variables were dropped in individual clusters
if(length(rownames(summary(clust.mod)$coefficients)) != length(ind.variables)){
stop("cluster-specific model(s) dropped variables; ensure that all variables vary within clusters", call.=FALSE)
}
b.clust[i,] <- summary(clust.mod)$coefficients[,1] # store the cluster i beta coefficient
}else{
b.clust[i,] <- NA
}
}
}
if(drop==TRUE){
b.clust <- na.omit(b.clust)
G <- dim(b.clust)[1]
}
if(G == 0){stop("all clusters were dropped (see help file).")}
b.hat <- colMeans(b.clust) # calculate the avg beta across clusters
b.dev <- sweep(b.clust, MARGIN = 2, STATS = b.hat) # sweep out the avg betas
#s.hat <- sqrt( (1 / (G-1)) * colSums(b.dev^2) ) # manually calculate the SE of beta estimates across clusters (deprecated)
vcv.hat <- cov(b.dev) # calculate VCV matrix
rownames(vcv.hat) <- ind.variables
colnames(vcv.hat) <- ind.variables
s.hat <- sqrt(diag(vcv.hat)) # calculate standard error
t.hat <- sqrt(G) * (b.hat / s.hat) # calculate t-statistic
names(b.hat) <- ind.variables
# compute p-val based on # of clusters
p.out <- 2*pmin( pt(t.hat, df = G-1, lower.tail = TRUE), pt(t.hat, df = G-1, lower.tail = FALSE) )
# compute CIs
ci.lo <- b.hat - qt((1-ci.level)/2, df=(G-1), lower.tail=FALSE)*(s.hat/sqrt(G))
ci.hi <- b.hat + qt((1-ci.level)/2, df=(G-1), lower.tail=FALSE)*(s.hat/sqrt(G))
out <- matrix(p.out, ncol=1)
rownames(out) <- ind.variables
out.p <- cbind( ind.variables, round(out, 3))
out.p <- rbind(c("variable name", "cluster-adjusted p-value"), out.p)
out.ci <- cbind(ci.lo, ci.hi)
rownames(out.ci) <- ind.variables
colnames(out.ci) <- c("CI lower", "CI higher")
print.ci <- cbind(ind.variables, ci.lo, ci.hi)
print.ci <- rbind(c("variable name", "CI lower", "CI higher"), print.ci)
printmat <- function(m){
write.table(format(m, justify="right"), row.names=F, col.names=F, quote=F, sep = " ")
}
if(report==T){
cat("\n", "Cluster-Adjusted p-values: ", "\n", "\n")
printmat(out.p)
cat("\n", "Confidence Intervals (centered on cluster-averaged results):", "\n", "\n")
printmat(print.ci)
if(G.o > G){
cat("\n", "Note:", G.o - G, "clusters were dropped (see help file).", "\n", "\n")
}
if(length(ind.variables) < length(ind.variables.full)){
cat("\n", "\n", "****", "Note: ", length(ind.variables.full) - length(ind.variables), " variables were unidentified in the model and are not reported.", "****", "\n", sep="")
cat("Variables not reported:", "\n", sep="")
cat(ind.variables.full[!ind.variables.full %in% ind.variables], sep=", ")
cat("\n", "\n")
}
}
out.list <- list()
out.list[["p.values"]] <- out
out.list[["ci"]] <- out.ci
if(return.vcv == TRUE){out.list[["vcv.hat"]] <- vcv.hat}
if(return.vcv == TRUE){out.list[["beta.bar"]] <- b.hat}
return(invisible(out.list))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.