tests/testthat/test-independent-test-plot.ssrCP.R

In gsDesign: Group Sequential Design

testthat::test_that("plot.ssrCP: plots are correctly rendered", {
  ssr_cp_des <- ssrCP(
    z1 = seq(-3, 3, 0.1), theta = NULL, maxinc = 2,
    overrun = 0, beta = 0.1, cpadj = c(0.5, 1 - 0.2),
    x = gsDesign(k = 2, delta = 0.2), z2 = z2NC
  )

  plot_ssr_cp <- function(x) {
    plot.ssrCP(
      x = x, z1ticks = NULL,
      mar = c(7, 4, 4, 4) + 0.1,
      ylab = "Adapted sample size", xlaboffset = -0.2, lty = 1, col = 1
    )
  }

  vdiffr::expect_doppelganger("ssr CP", plot_ssr_cp(ssr_cp_des))
})