R/2.6.getRMR.R

Defines functions getRMR

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)
}

Try the Mmcsd package in your browser

Any scripts or data that you put into this service are public.

Mmcsd documentation built on March 31, 2023, 7:23 p.m.