test_that("plotYTrace works", {
makeArtOP = function() {
ps = makeNumericParamSet(len = 1L)
op = makeOptPathDF(par.set = ps, y.names = "y", minimize = TRUE,
include.exec.time = TRUE)
X = rnorm(40)
dob = c(rep(0, 5), rep(1:7, each = 2), 8)
for (i in 1:20) {
addOptPathEl(op, x = list(
x = X[i * 2]),
y = X[i * 2 - 1],
dob = dob[i],
exec.time = rexp(1))
}
op
}
# build aritificial list of opt pathes
opt.paths = list(
algo1 = makeArtOP(),
algo2 = makeArtOP(),
algo3 = makeArtOP(),
algo4 = makeArtOP())
pl = renderYTraces(opt.paths, over.time = "dob")
expect_class(pl, "gg")
expect_class(pl, "ggplot")
pl = renderYTraces(opt.paths, over.time = "exec.time")
expect_class(pl, "gg")
expect_class(pl, "ggplot")
plotYTraces(opt.paths)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.