Nothing
#' @method print sig.glm
#' @export
print.sig.glm <- function(x, ...){
pVal <- coef <- NULL
m1 <- data.frame(
"Wald"= x$Wald[, pVal],
"LR"=x$LR[, pVal],
"score"=x$score[, pVal])
rownames(m1) <- x$Wald[, coef]
m1[, 1:3] <- as.numeric(format.pval(m1[, 1:3]))
stats::printCoefmat(m1, has.Pvalue=TRUE,
cs.ind=1L,
dig.tst=getOption("digits"))
}
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.