Nothing
test_that("check that babsim function works with spot", {
set.seed(123)
require("SPOT")
## n = number of function evaluations
n <- 30
bounds <- getBounds()
conf <- babsimToolsConf()
data <- getObkData()
para <- getStartParameter()
resTest <- spot(
x = para,
fun = funWrapOptimizeSim,
lower = bounds$lower,
upper = bounds$upper,
control = list(
funEvals = n,
noise = TRUE,
model = buildTreeModel,
plots = FALSE,
progress = FALSE
),
conf,
data
)
expect_equal(resTest$count, n)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.