Nothing
summary.factorQR <- function(object, CI=c(2.5, 97.5),...){
# p <- object$n.alt
param <- object$param
nReg <- object$nReg
n.var <- ncol(param) - nReg
n.draws <- nrow(param)
param.table <- cbind(apply(param, 2, mean), apply(param, 2, sd),
apply(param, 2, quantile, min(CI)/100),
apply(param, 2, quantile, max(CI)/100))
colnames(param.table) <- c("mean", "std.dev.", paste(min(CI), "%", sep=""),
paste(max(CI), "%", sep=""))
rownames(param.table) <- colnames(param)
ans <- list(call = object$call,
n.obs = object$nObs,
n.param = ncol(param), n.draws = n.draws,
coef.table= param.table[1:nReg,],
cov.table=param.table[(nReg+1):ncol(param),])
class(ans) <- "summary.factorQR"
return(ans)
}
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.