barPlotModelComparison,ClinicalModel,PCOSP_or_RLS_or_RGA-method {PDATK} | R Documentation |
Make a Bar Plot Comparison Model Performance Between a ClinicalModel and a PCOSP, RLSModel or RGAModel object.
## S4 method for signature 'ClinicalModel,PCOSP_or_RLS_or_RGA' barPlotModelComparison(model1, model2, stat, ...)
model1 |
A |
model2 |
A |
stat |
A |
... |
Not used. |
A ggplot2
object showing a barplot coloured by the model and
comparing the stat between all cohorts that both models were validated
with.
data(sampleValPCOSPmodel) data(sampleCohortList) data(sampleICGCmicro) # Set parallelization settings BiocParallel::register(BiocParallel::SerialParam()) # Setup the models clinicalModel <- ClinicalModel(sampleICGCmicro, formula='prognosis ~ sex + age + T + N + M + grade', randomSeed=1987) # Train the models trainedClinicalModel <- trainModel(clinicalModel) # Make predctions clinicalPredCohortList <- predictClasses(sampleCohortList[c('PCSI', 'TCGA')], model=trainedClinicalModel) # Validate the models validatedClinicalModel <- validateModel(trainedClinicalModel, valData=clinicalPredCohortList) # Plot the comparison modelCompBarPlot <- barPlotModelComparison(validatedClinicalModel, sampleValPCOSPmodel, stat='AUC')