R/readDrugCoef.R

In oncoclass/hemaClass: One-by-one normalization and classification of hematological malignacies

#' Read coefficients for REGS classifiers and predictors
#' 
#' Functions to read coefficients for REGS classifiers and predictors.
#' @rdname readDrugCoef
#' @aliases 
#'   readDrugCoef 
#'   readPredCoef
#'   readClasCoef
#'   readCyclophosphamideClasCoef 
#'   readDoxorubicinClasCoef
#'   readVincristineClasCoef
#'   readCyclophosphamidePredCoef 
#'   readDoxorubicinPredCoef
#'   readVincristinePredCoef
#' @return A \code{matrix} of coefficients.
#' @examples
#' head(readPredCoef())
#' @export
readPredCoef <- function() {
  file <- system.file("extdata/Drugs/resistance.predictor.coef.rds", package = "hemaClass")
  return(readRDS(file))
}

#' @rdname readDrugCoef
#' @examples
#' head(readClasCoef())
#' @export
readClasCoef <- function() {
  file <- system.file("extdata/Drugs/resistance.classifier.coef.rds", package = "hemaClass")
  return(readRDS(file))
}

#' @rdname readDrugCoef
#' @examples
#' head(readCyclophosphamideClasCoef())
#' @export
readCyclophosphamideClasCoef <- function() {
  file <- system.file("extdata/Drugs/Cyclophosphamide.resistance.class.coef.rds", package = "hemaClass")
  return(readRDS(file))
}

#' @rdname readDrugCoef
#' @examples
#' head(readCyclophosphamidePredCoef())
#' @export
readCyclophosphamidePredCoef <- function() {
  file <- system.file("extdata/Drugs/Cyclophosphamide.resistance.pred.coef.rds", package = "hemaClass")
  return(readRDS(file))
}

#' @rdname readDrugCoef
#' @examples
#' head(readDoxorubicinClasCoef())
#' @export
readDoxorubicinClasCoef <- function() {
  file <- system.file("extdata/Drugs/Doxorubicin.resistance.class.coef.rds", package = "hemaClass")
  return(readRDS(file))
}

#' @rdname readDrugCoef
#' @examples
#' head(readDoxorubicinPredCoef())
#' @export
readDoxorubicinPredCoef <- function() {
  file <- system.file("extdata/Drugs/Doxorubicin.resistance.pred.coef.rds", package = "hemaClass")
  return(readRDS(file))
}

#' @rdname readDrugCoef
#' @examples
#' head(readVincristineClasCoef())
#' @export
readVincristineClasCoef <- function() {
  file <- system.file("extdata/Drugs/Vincristine.resistance.class.coef.rds", package = "hemaClass")
  return(readRDS(file))
}

#' @rdname readDrugCoef
#' @examples
#' head(readVincristinePredCoef())
#' @export
readVincristinePredCoef <- function() {
  file <- system.file("extdata/Drugs/Vincristine.resistance.pred.coef.rds", package = "hemaClass")
  return(readRDS(file))
}


#' @rdname readDrugCoef
#' @examples
#' head(readRituximabClasCoef())
#' @export
readRituximabClasCoef <- function() {
  file <- system.file("extdata/Drugs/Rituximab.resistance.class.coef.rds", package = "hemaClass")
  return(readRDS(file))
}

#' @rdname readDrugCoef
#' @examples
#' head(readRituximabPredCoef())
#' @export
readRituximabPredCoef <- function() {
  file <- system.file("extdata/Drugs/Rituximab.resistance.pred.coef.rds", package = "hemaClass")
  return(readRDS(file))
}

#' @rdname readDrugCoef
#' @examples
#' head(readRituximabClasCorCoef())
#' @export
readRituximabClasCorCoef <- function() {
  file <- system.file("extdata/Drugs/Rituximab.resistance.class.Cor.coef.rds", package = "hemaClass")
  return(readRDS(file))
}

#' @rdname readDrugCoef
#' @examples
#' head(readRituximabPredCorCoef())
#' @export
readRituximabPredCorCoef <- function() {
  file <- system.file("extdata/Drugs/Rituximab.resistance.pred.Cor.coef.rds", package = "hemaClass")
  return(readRDS(file))
}

#' @rdname readDrugCoef
#' @examples
#' head(readRituximabClasLytiskCoef())
#' @export
readRituximabClasLytiskCoef <- function() {
  file <- system.file("extdata/Drugs/Rituximab.resistance.class.Lytisk.coef.rds", package = "hemaClass")
  return(readRDS(file))
}

readRituximabClasLytisk2Coef <- function() {
  file <- system.file("extdata/Drugs/Rituximab.resistance.class.Lytisk2.coef.rds", package = "hemaClass")
  return(readRDS(file))
}


#' @rdname readDrugCoef
#' @examples
#' head(readDexamethasoneClasCoef())
#' @export
readDexamethasoneClasCoef <- function() {
  file <- system.file("extdata/Drugs/Dexamethasone.resistance.class.coef.rds", package = "hemaClass")
  return(readRDS(file))
}

#' @rdname readDrugCoef
#' @examples
#' head(readDexamethasonePredCoef())
#' @export
readDexamethasonePredCoef <- function() {
  file <- system.file("extdata/Drugs/Dexamethasone.resistance.pred.coef.rds", package = "hemaClass")
  return(readRDS(file))
}

#' @rdname readDrugCoef
#' @examples
#' head(readMelphalanClasCoef())
#' @export
readMelphalanClasCoef <- function() {
  file <- system.file("extdata/Drugs/Melphalan.resistance.class.coef.rds", package = "hemaClass")
  return(readRDS(file))
}

#' @rdname readDrugCoef
#' @examples
#' head(readMelphalanPredCoef())
#' @export
readMelphalanPredCoef <- function() {
  file <- system.file("extdata/Drugs/Melphalan.resistance.pred.coef.rds", package = "hemaClass")
  return(readRDS(file))
}