#' @title S4 class for the parameters of the ML estimation of the probability of measurement error
#'
#' @description Definition of the S4 class named \code{ErrorProbMLEParam} for the parameters of
#' the ML estimation of the probability of measurement error.
#'
#'
#' @slot RawData \linkS4class{StQList} object with the raw data.
#'
#' @slot EdData \linkS4class{StQList} object with the edited data.
#'
#' @slot VarNames Character vector with the names of the variables whose error probabilities are to
#' be computed.
#'
#' @slot Imputation \linkS4class{ImputationParam} object with the parameters to imputed missing
#' values during the computation of the error probabilities.
#'
#' @examples
#' # An empty contObsPredModelParam object:
#' new(Class = 'ErrorProbMLEParam')
#'
#' \dontrun{
#' ImpParam <- new(Class = 'MeanImputationParam',
#' VarNames = 'CifraNeg_13.___',
#' DomainNames = 'Tame_05._4.')
#' ErrorProbMLEParam <- new(Class = 'ErrorProbMLEParam',
#' RawData = FD.StQList,
#' EdData = FF.StQList,
#' VarNames = 'CifraNeg_13.___',
#' Imputation = ImpParam)
#'
#'
#' }
#'
#' @import data.table StQ RepoTime StQImputation
#'
#' @export
setClass(Class = "ErrorProbMLEParam",
slots = c(RawData = 'StQList',
EdData = 'StQList',
VarNames = 'character',
Imputation = 'ImputationParam'),
prototype = list(RawData = StQList(),
EdData = StQList(),
VarNames = character(0),
Imputation = new(Class = 'MeanImputationParam')),
validity = function(object){
if (!all(object@VarNames == object@Imputation@VarNames)) {
stop('[StQImputation:: validity ErrorProbMLEParam] The slots VarNames in the object and in the slot Imputation must be the same.\n')
}
return(TRUE)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.