tests/testthat/test_plotGIE.R

In florianfendt/dips: Decision Problems In Preference Systems

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))
})