R/vcov.eRm.R

Defines functions `vcov.eRm`

`vcov.eRm` <-
function(object,...) 
{
  if (any(is.na(object$se.eta))) {
    vcmat <- NA 
  } else {
    vcmat <- (solve(object$hessian))      #VC-matrix of the parameter estimates
  }
  return(vcmat)
}

Try the eRm package in your browser

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

eRm documentation built on May 29, 2024, 2:12 a.m.