Nothing
summary.aodql <- function(object, ...) {
Z <- switch(object$method, chisq = "X2", dev = "D")
cat("\nMu coefficients:\n")
print(summary(object$fm))
cat("Method: ", object$method, "\n", sep = "")
cat("Phi coefficient: ", object$phi, "\n", sep = "")
cat(Z, " = ", object$Z, " (nbiter = ",
object$nbiter[1], "/", object$nbiter[2], ")", sep = "")
}
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.