# NOT RUN {
#--- Synthetic Design Problem ---#
# }
# NOT RUN {
#demonstration design criterion
dc <- function(x,theta) {sum(x^2) + rnorm(1,0.1)}
#demonstration posterior sampler
post <- function(design,response) {rnorm(1000)}
#demonstration simulatior
sim <- function(x) {x}
my_result = sequential_experiment(criterion = dc,
stochastic = TRUE,
sampler = post,
lower_bound = -3,
upper_bound = 3,
simulator = sim,
design_budget = 2,
optim_budget = 1,
batch = 2)
# }
Run the code above in your browser using DataLab