@@ -76,6 +76,12 @@

 #' @export

 setGeneric("ROCplot", function(results, ...) standardGeneric("ROCplot"))

+#' @rdname ROCplot

+#' @export

+setMethod("ROCplot", "ClassifyResult", function(results, ...) {

+    ROCplot(list(assay = results), ...)

+})

+

 #' @rdname ROCplot

 #' @export

 setMethod("ROCplot", "list", 

@@ -17,8 +17,7 @@

 #' design to compare. Can be any characteristic that all results share.

 #' @param metric Default: "Sample Error". The sample-wise metric to plot.

 #' @param featureValues If not NULL, can be a named factor or named numeric

-#' vector specifying some variable of interest to plot above the

-#' heatmap.

+#' vector specifying some variable of interest to plot above the heatmap.

 #' @param featureName A label describing the information in

 #' \code{featureValues}. It must be specified if \code{featureValues} is.

 #' @param metricColours If the outcome is categorical, a list of vectors of colours

@@ -3,8 +3,11 @@

 \name{ROCplot}

 \alias{ROCplot}

 \alias{ROCplot,list-method}

+\alias{ROCplot,ClassifyResult-method}

 \title{Plot Receiver Operating Curve Graphs for Classification Results}

 \usage{

+\S4method{ROCplot}{ClassifyResult}(results, ...)

+

 \S4method{ROCplot}{list}(

   results,

   mode = c("merge", "average"),

@@ -21,7 +21,7 @@ A function to perform fast cox proportional hazard model tests

 }

 \examples{

 data(asthma)

-time <- ppois(nrow(measurements),100)

+time <- rpois(nrow(measurements),100)

 status <- sample(c(0,1), nrow(measurements), replace = TRUE)

 x = measurements

 y = cbind(time, status)

@@ -61,8 +61,7 @@ design to compare. Can be any characteristic that all results share.}

 \item{metric}{Default: "Sample Error". The sample-wise metric to plot.}

 \item{featureValues}{If not NULL, can be a named factor or named numeric

-vector specifying some variable of interest to plot underneath the above the

-heatmap.}

+vector specifying some variable of interest to plot above the heatmap.}

 \item{featureName}{A label describing the information in

 \code{featureValues}. It must be specified if \code{featureValues} is.}