diff --git a/NAMESPACE b/NAMESPACE index d9638ad..7ceaea8 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -1,5 +1,9 @@ # Generated by roxygen2: do not edit by hand +S3method(aggregate_CV_split_results,rm_confusion_matrix) +S3method(aggregate_CV_split_results,rm_main_results) +S3method(aggregate_resample_run_results,rm_confusion_matrix) +S3method(aggregate_resample_run_results,rm_main_results) S3method(get_data,ds_basic) S3method(get_data,ds_generalization) S3method(get_parameters,cl_max_correlation) diff --git a/R/rm_confusion_matrix.R b/R/rm_confusion_matrix.R index c456684..3c76c1e 100644 --- a/R/rm_confusion_matrix.R +++ b/R/rm_confusion_matrix.R @@ -88,6 +88,7 @@ new_rm_confusion_matrix <- function(the_data = data.frame(), # Not going to export this since it should never be directly called by users of the NDR. #' @inherit aggregate_CV_split_results #' @keywords internal +#' @export aggregate_CV_split_results.rm_confusion_matrix <- function(rm_obj, prediction_results) { # include a warning if the state is not initial @@ -190,6 +191,7 @@ aggregate_CV_split_results.rm_confusion_matrix <- function(rm_obj, prediction_re # Not going to export this since it should never be directly called by users of the NDR. #' @inherit aggregate_resample_run_results #' @keywords internal +#' @export aggregate_resample_run_results.rm_confusion_matrix <- function(resample_run_results) { confusion_matrix <- resample_run_results diff --git a/R/rm_main_results.R b/R/rm_main_results.R index 9d124c5..1c9e4d4 100644 --- a/R/rm_main_results.R +++ b/R/rm_main_results.R @@ -85,6 +85,7 @@ new_rm_main_results <- function(the_data = data.frame(), state = "initial", opti # The aggregate_CV_split_results method needed to fulfill the results metric interface. #' @inherit aggregate_CV_split_results #' @keywords internal +#' @export aggregate_CV_split_results.rm_main_results <- function(rm_obj, prediction_results) { @@ -247,6 +248,7 @@ if ((sum(grepl("decision", names(prediction_results))) == 0) & (include_norm_ran # The aggregate_resample_run_results method needed to fulfill the results metric interface #' @inherit aggregate_resample_run_results #' @keywords internal +#' @export aggregate_resample_run_results.rm_main_results <- function(resample_run_results) {