context("plotGIE")
test_that("plot is generated", {
# setup decision problem and preference system
dp.outcomes = makeDecisionProblem(outcomes.bound,
state = "nature", action = "job")
ps.outcomes = makePreferenceSystem(dp.outcomes)
deltas = c(0.01, 0.015, 0.02)
actions = c("1", "2")
obj = plotGIE(ps.outcomes, deltas, p.measures.2, actions)
# check that obj is a ggplot
expect_true("ggplot" %in% class(obj))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.