# Proposes n points randomly by calling generateRandomDesign.
# crit.vals, propose.time and errors.model are all set to NA
proposePointsRandom = function(opt.state) {
opt.problem = getOptStateOptProblem(opt.state)
control = getOptProblemControl(opt.problem)
par.set = getOptProblemParSet(opt.problem)
n = control$interleave.random.points
makeProposal(
control = control,
prop.points = generateRandomDesign(par.set = par.set, n = n),
prop.type = rep("random_interleave", n)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.