summary.alpha <- function(object, ...){
tab <- data.frame(alpha = coef(object))
res <- list(coefficients = tab, numItems = object$N, condAlpha = object$condAlpha)
class(res) <- "summary.alpha"
res
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.