From 1708ac4c8e9e8630b9bf5527ca7247039451e571 Mon Sep 17 00:00:00 2001 From: Sam Watson Date: Mon, 3 Jul 2023 13:29:00 +0100 Subject: [PATCH] v0.2.5 Modified example --- R/R6designspace.R | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/R/R6designspace.R b/R/R6designspace.R index 0f3e5c2..4edf87b 100644 --- a/R/R6designspace.R +++ b/R/R6designspace.R @@ -234,9 +234,8 @@ DesignSpace <- R6::R6Class("DesignSpace", #' ) #' ds <- DesignSpace$new(des) #' - #' #find the optimal design of size 30 individuals using local search - #' opt <- ds$optimal(30,C=list(c(rep(0,5),1)),algo=1) #' #find the optimal design of size 30 individuals using reverse greedy search + #' # change algo=1 for local search, and algo = 2 for greedy search #' opt2 <- ds$optimal(30,C=list(c(rep(0,5),1)),algo=3) #' #' #let the experimental condition be the cluster @@ -257,7 +256,7 @@ DesignSpace <- R6::R6Class("DesignSpace", #' ) #' ds <- DesignSpace$new(des,des2) #' #weighted average assuming equal weights using local search - #' opt <- ds$optimal(30,C=list(c(rep(0,5),1),c(rep(0,5),1))) + #' opt <- ds$optimal(30,C=list(c(rep(0,5),1),c(rep(0,5),1),algo=3)) optimal = function(m, C, attenuate_pars = FALSE,