@@ -7,6 +7,7 @@ S3method(FunctionalityScore,COMPASSResult)

 S3method(FunctionalityScore,default)

 S3method(PolyfunctionalityScore,COMPASSResult)

 S3method(PolyfunctionalityScore,default)

+S3method(Response,COMPASSResult)

 S3method(UniqueCombinations,COMPASSContainer)

 S3method(UniqueCombinations,default)

 S3method(markers,COMPASSContainer)

@@ -23,6 +23,7 @@ Response <- function(x, markers, degree, max.prob, cond_response){

 }

 ##' @rdname Response

+##' @export

 Response.COMPASSResult <- function(x, markers = NULL, degree = 1, max.prob = FALSE, cond_response = FALSE) {

   ## we drop the last column as it is the 'NULL' category

   if (is.null(markers)) {