|
...
|
...
|
@@ -113,6 +113,15 @@ setMethod("calcExternalPerformance", c("Surv", "numeric"),
|
|
113
|
113
|
.calcPerformance(actualOutcome, predictedOutcome, performanceType = performanceType)[["values"]]
|
|
114
|
114
|
})
|
|
115
|
115
|
|
|
|
116
|
+#' @rdname calcPerformance
|
|
|
117
|
+#' @exportMethod calcExternalPerformance
|
|
|
118
|
+setMethod("calcExternalPerformance", c("factor", "tabular"), # table has class probabilities per sample.
|
|
|
119
|
+ function(actualOutcome, predictedOutcome, performanceType = "AUC")
|
|
|
120
|
+ {
|
|
|
121
|
+ performanceType <- match.arg(performanceType)
|
|
|
122
|
+ .calcPerformance(actualOutcome, predictedOutcome, performanceType = performanceType)[["values"]]
|
|
|
123
|
+ })
|
|
|
124
|
+
|
|
116
|
125
|
#' @rdname calcPerformance
|
|
117
|
126
|
#' @usage NULL
|
|
118
|
127
|
#' @export
|
