tests/testthat/helper.R

library(testthat)
library(SimSurvNMarker)

test_res_dir <- if(!dir.exists("test-res"))
  file.path("tests", "testthat", "test-res") else
    "test-res"

formals(expect_known_value)$update <- formals(expect_known_output)$update <-
  FALSE

Try the SimSurvNMarker package in your browser

Any scripts or data that you put into this service are public.

SimSurvNMarker documentation built on Nov. 10, 2022, 5:12 p.m.