R/2.9.getSigmaThetaType.R

In Mmcsd: Modeling Complex Longitudinal Data in a Quick and Easy Way

getSigmaThetaType <- function(sigmaThetaExpr) {
  if (is.character(sigmaThetaExpr)) {
    sigmaThetaType <- sigmaThetaExpr
  } else {
    sigmaThetaType <- "Customized"
  }

  return(sigmaThetaType)
}