R/class-RLSModel.R

In bhklab/PanCuRx: Pancreatic Ductal Adenocarcinoma Tool-Kit

#' RLSModel Class Definition
#'
#' @export
.RLSModel <- setClass('RLSModel', contains='SurvivalModel')
#'
#' RandomLabelShufflingModel Constructor
#'
#' @inherit SurvivalModel
#'
#' @examples
#' data(sampleICGCmicro)
#' set.seed(1987)
#' RLSmodel <- RLSModel(sampleICGCmicro, minDaysSurvived=365, randomSeed=1987)
#'
#' @aliases RLSModel
#' @export
RandomLabelShufflingModel <- function(trainCohorts, minDaysSurvived=365, ...,
    randomSeed)
{
    RLSModel <- .RLSModel(SurvivalModel(trainCohorts, minDaysSurvived,
        randomSeed=randomSeed))
    return(RLSModel)
}
#' @export
RLSModel <- RandomLabelShufflingModel