Exported the aggregate functions for rm_main_result and rm_confusion_…

…matrix to get it to pass the Windows checks. Hopefully this will not make these methods public.

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)

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

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) {