R/getModelFits.R

In david-salgado/categObsPredModelParam: Class and methods for the parameters of a categorical observation- prediction model

#' @title Return slot \code{modelFits} from the input object
#'
#' @description \code{getModelFits} extracts the slot \code{VarRoles} of the input object.
#'
#' @param object Object of class \linkS4class{categObsPredModelParam}.
#'
#' @return \linkS4class{data.table} with the fitted models.
#'
#' @examples
#'  \dontrun{
#'   fitPar <- new(Class = 'fitParam',
#'   edData = FFall_AS.StQ, rawData = FGall_AS.StQ, 
#'   selParam = list(ntreeTry=1000, stepFactor=2, improve=0.05, 
#'                   trace=TRUE, plot=TRUE, doBest = TRUE, 
#'                   ptrain = 0.8, DD = DDactu),
#'                   valParam = list(edEffInd = effInd, priorBin = 5, 
#'                   dataVal = c('Train','Test')))
#'                   
#'  ObsPredPar1 <- new(Class = 'categObsPredModelParam',
#'                   Data = FGall_AS.StQ,
#'                   VarRoles = list(Units = IDUnits,
#'                   Domains = character(0),
#'                   DesignW = DesignW,
#'                   Regressands = Regressands,
#'                   Regressors = Regressors
#'                   ))
#'                   
#' ObsPredPar1 <-  fitModels(ObsPredPar1, fitPar, na.as.category)
#' getModelFits(ObsPrePar1)
#' }
#'
#' @include categObsPredModelParam-class.R
#'
#' @export
setGeneric("getModelFits", function(object){standardGeneric("getModelFits")})

#' @rdname getModelFits
#'
#' @export
setMethod(
  f = "getModelFits",
  signature = c("categObsPredModelParam"),
  function(object){object@modelFits}
)