Nothing
getRMR <- function(fit, fitTheta) {
res <- fit$sigmaHat - fitTheta$sigmaTheta
RMR <- sqrt(2 * sum(apply(res, 2, function(resi) sum(resi^2))) / (fit$info$T * (fit$info$T + 1)))
return(RMR)
}
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.