Nothing
#' @export
print.sGMRFmix <- function(x, digits = 3L, ...) {
cat("\nCall:\n")
print(x$call)
N <- nrow(x$x)
M <- ncol(x$x)
cat("\nData:", N, "x", M, "\n")
cat("Parameters:\n")
cat(" K: ", x$K, "\n")
cat(" rho: ", x$rho, "\n")
cat("Estimated:\n")
cat(" Kest:", x$Kest, "\n")
cat(" pi: ", format(x$pi, digits = digits), "\n")
cat(" m, A, theta, H, mode\n")
}
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.