Nothing
context("Test forbidden")
withr::with_output_sink("test-forbidden.Rout", {
test_that("checkForbidden", {
test.checkForbidden <- function(param.file)
{
params <- irace:::readParameters(param.file)
confs <- irace:::readConfigurationsFile("configurations.txt", params)
forbidden <- irace:::readForbiddenFile("forbidden.txt")
exp.confs <- irace:::readConfigurationsFile(text='
param1 param2 mode real mutation
5 NA "x2" 4.0 "low"
1 NA "x2" 4.0 "low"
5 6 "x1" 3.5 "low"
NA NA "x3" 4.5 "low"
', parameters = params)
confs <- irace:::checkForbidden(confs, forbidden)
rownames(confs) <- rownames(exp.confs) <- NULL
expect_equal(confs, exp.confs)
}
test.checkForbidden("parameters.txt")
test.checkForbidden("logparameters.txt")
})
})
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.