R/class-RGAModel.R

In bhklab/PanCuRx: Pancreatic Ductal Adenocarcinoma Tool-Kit

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