Nothing
summary.eiReg <- function(object, ...){
nidx <- apply(expand.grid(dimnames(object$coef)), 1, paste, collapse = ".")
object$coef <- cbind(c(object$coef), c(object$se),
c(object$coef)/c(object$se))
colnames(object$coef) <- c("Estimate", "Std. Error", "t-stat")
rownames(object$coef) <- nidx
object
}
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.