barPlotModelComparison {PDATK} | R Documentation |
S4
Objects Representing
Mathematical Models.Make A Bar Plot Comparing Performance Between Two S4
Objects Representing
Mathematical Models.
barPlotModelComparison(model1, model2, ...)
model1 |
An |
model2 |
An |
... |
Allow new parameters to be defined for this generic. |
A bar plot comparing some aspect of model1 and model2
data(sampleCohortList) data(sampleValPCOSPmodel) data(sampleICGCmicro) # Set parallelization settings BiocParallel::register(BiocParallel::SerialParam()) # Setup the models set.seed(1987) 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')