EMOAs now have specialized classes

R/emoa.as-emoa.R

@@ -42,7 +42,7 @@
 #' @template arg_max_time
 #' @param ... [any]\cr
 #'   Further arguments passed to \code{\link{setupECRControl}}.
-#' @return [\code{ecr_ecr_multi_objective_result}]
+#' @return [\code{ecr_asemoa_result, ecr_multi_objective_result}]
 #' @export
 asemoa = function(
   task,
@@ -174,7 +174,9 @@ asemoa = function(
   ctrl$n.archive = n.archive
   ctrl$aspiration.set = aspiration.set
 
-  return(doTheEvolution(task, ctrl))
+  res = doTheEvolution(task, ctrl)
+  res = BBmisc::addClasses(res, "ecr_asemoa_result")
+  return(res)
 }
 
 # @title

R/emoa.nsga2.R

@@ -35,7 +35,7 @@
 #' @template arg_max_time
 #' @param ... [any]\cr
 #'   Further arguments passed to \code{\link{setupECRControl}}.
-#' @return [\code{ecr_ecr_multi_objective_result}]
+#' @return [\code{ecr_nsga2_result, ecr_multi_objective_result}]
 #' @export
 nsga2 = function(
   task,
@@ -73,5 +73,7 @@ nsga2 = function(
     survival.selector = setupNondomSelector()
   )
 
-  return(doTheEvolution(task, ctrl))
+  res = doTheEvolution(task, ctrl)
+  res = BBmisc::addClasses(res, "ecr_nsga2_result")
+  return(res)
 }

R/emoa.sms-emoa.R

@@ -33,7 +33,7 @@
 #' @template arg_max_time
 #' @param ... [any]\cr
 #'   Further arguments passed to \code{\link{setupECRControl}}.
-#' @return [\code{ecr_ecr_multi_objective_result}]
+#' @return [\code{ecr_smsemoa_result, ecr_multi_objective_result}]
 #' @export
 smsemoa = function(
   task,
@@ -79,5 +79,7 @@ smsemoa = function(
     stopf("Reference point ref.point needs to have as many components as objectives.")
   }
 
-  return(doTheEvolution(task, ctrl))
+  res = doTheEvolution(task, ctrl)
+  res = BBmisc::addClasses(res, "ecr_smsemoa_result")
+  return(res)
 }