residuals.bayescomm <- function (object, ...) { object$call$Y - apply(pnorm(object$trace$z), c(2, 3), mean) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.