#' Load test data for the metabric re-evaluation with MICMA dataset
#'
#' Loads data for gene expression, copy number, clinical covariates and clinical survival times for the test dataset
#' used to evlauate model scores.
#'
#' @param loadSurvData specifies if survival data is loaded. Should be set to false to users who do not have access
#' to validation data. Set to true for automated model evaluation harness.
#' @return a list with elements: exprData, containing an ExpressionSet of gene expression features;
#' copyData, containing an ExpressionSet of copy number features; clinicalFeaturesData, containing an
#' AnnotatedDataFrame of clinical covariates; and clinicalSurvData, if loadSurvData=TRUE, containing a Surv object
#' of survival times and censor values.
#' @author Adam Margolin and In Sock Jang
#' @export
loadFederationMicmaData <- function(loadSurvData=FALSE){
metabricTestData <- list()
idExpressionLayer <- "syn1589708"
expressionLayer <- loadEntity(idExpressionLayer)
metabricTestData$exprData <- expressionLayer$objects[[1]]
idCopyLayer <- "syn1588686"
copyLayer <- loadEntity(idCopyLayer)
metabricTestData$copyData <- copyLayer$objects[[1]]
idClinicalFeaturesLayer <- "syn1643459"
clinicalFeaturesLayer <- loadEntity(idClinicalFeaturesLayer)
metabricTestData$clinicalFeaturesData <- clinicalFeaturesLayer$objects[[1]]@data
idClinicalSurvLayer <- "syn1647998"
clinicalSurvLayer <- loadEntity(idClinicalSurvLayer)
metabricTestData$clinicalSurvData <- clinicalSurvLayer$objects[[1]]
return(metabricTestData)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.