R/C4_ScorzAqol6Adol.R

In ready4-dev/scorz: Score Multi-Attribute Utility Instruments

#' ScorzAqol6Adol
#' 
#' A dataset and metadata to support implementation of a scoring algorithm for the adolescent version of AQoL-6D.
#' 
#' @include C4_ScorzAqol6.R
#' @slot instrument_version_1L_chr Instrument version (a character vector of length one)
#' @slot a_YouthvarsProfile  (an instance of the YouthvarsProfile class)
#' @slot country_1L_chr Country (a character vector of length one)
#' @slot domain_unwtd_var_nms_chr Domain unweighted variable names (a character vector)
#' @slot domain_wtd_var_nms_chr Domain weighted variable names (a character vector)
#' @slot instrument_dict_r3 Instrument dictionary (a ready4 submodule)
#' @slot instrument_nm_1L_chr Instrument name (a character vector of length one)
#' @slot instrument_short_nm_1L_chr Instrument short name (a character vector of length one)
#' @slot itm_labels_chr Item labels (a character vector)
#' @slot itm_prefix_1L_chr Item prefix (a character vector of length one)
#' @slot scrg_dss_ls Scoring datasets (a list)
#' @slot total_wtd_var_nm_1L_chr Total weighted variable name (a character vector of length one)
#' @slot total_unwtd_var_nm_1L_chr Total unweighted variable name (a character vector of length one)
#' @slot dissemination_1L_chr Dissemination (a character vector of length one)
#' @name ScorzAqol6Adol-class
#' @rdname ScorzAqol6Adol-class
#' @export ScorzAqol6Adol
#' @exportClass ScorzAqol6Adol
ScorzAqol6Adol <- methods::setClass("ScorzAqol6Adol",
contains = "ScorzAqol6",
slots = c(instrument_version_1L_chr = "character",a_YouthvarsProfile = "YouthvarsProfile",country_1L_chr = "character",domain_unwtd_var_nms_chr = "character",domain_wtd_var_nms_chr = "character",instrument_dict_r3 = "ready4use_dictionary",instrument_nm_1L_chr = "character",instrument_short_nm_1L_chr = "character",itm_labels_chr = "character",itm_prefix_1L_chr = "character",scrg_dss_ls = "list",total_wtd_var_nm_1L_chr = "character",total_unwtd_var_nm_1L_chr = "character",dissemination_1L_chr = "character"),
prototype =  list(instrument_version_1L_chr = 'Adolescent'))


methods::setValidity(methods::className("ScorzAqol6Adol"),
function(object){
msg <- NULL
if (is.null(msg)) TRUE else msg
})