context("plotRelationGraph")
# FIXME: make tests with vdiffr
# setup decision problem, preference system and helpers
test_that("plotRelationGraph", {
dp = makeDecisionProblem(outcomes, "nature", "job")
ps = makePreferenceSystem(dp)
gr = plotRelationGraph(ps, title = "dummy title")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.