R/sigma.hat.R

In mi: Missing Data Imputation and Model Checking

# ==============================================================================
# extract sigma.hat values 
# ==============================================================================

setMethod("sigma.hat", signature( object = "mi.method"),     
  function (object) {
    object@model$sigma
  }
)