Usage:
cs <- modifyParam(ps, id="power", lower = 444, upper = 444)
prop = suppressWarnings({proposePoints(opt.state, cs)})
cs2 <- modifyParam(ps, cs, id="gas", lower = "Air")
prop = suppressWarnings({proposePoints(opt.state, cs2)})
cs <- modifyParam(ps, id="pressure", lower = 55, upper = 88)
prop = suppressWarnings({proposePoints(opt.state, cs)})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.