diff --git a/R/emoa.sms-emoa.R b/R/emoa.sms-emoa.R index 0295bcf..4bad22f 100644 --- a/R/emoa.sms-emoa.R +++ b/R/emoa.sms-emoa.R @@ -13,7 +13,11 @@ #' R like interface of this state of the art EMOA. #' #' @keywords optimize -#FIXME: add reference +#' +#' @references +#' Beume, N., Naujoks, B., Emmerich, M., SMS-EMOA: Multiobjective selection based +#' on dominated hypervolume, European Journal of Operational Research, Volume 181, +#' Issue 3, 16 September 2007, Pages 1653-1669. #' #' @template arg_optimization_task #' @param n.population [\code{integer(1)}]\cr @@ -36,8 +40,8 @@ smsemoa = function( n.population = 100L, ref.point = NULL, parent.selector = makeSimpleSelector(), - mutator = makeGaussMutator(), - recombinator = makeCrossoverRecombinator(), + mutator = makePolynomialMutation(eta = 25, p = 0.2), + recombinator = makeSBXRecombinator(eta = 15, p = 0.7), max.iter = NULL, max.evals = NULL, max.time = NULL, ...) { diff --git a/man/smsemoa.Rd b/man/smsemoa.Rd index e04890a..780baaa 100644 --- a/man/smsemoa.Rd +++ b/man/smsemoa.Rd @@ -5,8 +5,9 @@ \title{Implementation of the SMS-EMOA by Emmerich et al.} \usage{ smsemoa(task, n.population = 100L, ref.point = NULL, - parent.selector = makeSimpleSelector(), mutator = makeGaussMutator(), - recombinator = makeCrossoverRecombinator(), max.iter = NULL, + parent.selector = makeSimpleSelector(), + mutator = makePolynomialMutation(eta = 25, p = 0.2), + recombinator = makeSBXRecombinator(eta = 15, p = 0.7), max.iter = NULL, max.evals = NULL, max.time = NULL, ...) } \arguments{ @@ -57,5 +58,10 @@ the Hypervolume indicator. This helper function hides the regular \pkg{ecr} interface and offers a more R like interface of this state of the art EMOA. } +\references{ +Beume, N., Naujoks, B., Emmerich, M., SMS-EMOA: Multiobjective selection based +on dominated hypervolume, European Journal of Operational Research, Volume 181, +Issue 3, 16 September 2007, Pages 1653-1669. +} \keyword{optimize}