tests/testthat/test-return-data.R

In AntiportaD/hrcompetdx: A non-Parametric Diagnostic Tool for Competing Risk hazard estimation (Title Case)

context("Test hrcompet estimation and data return")

test_that("Wheter return gives desired data dimensions", {

  set.seed(1)
  data <- CRhazdx::dat_ckid
  dat_final<-CRHaz_dx(data, exit, event, exposure=b1nb0, entry, eoi=2)
  expect_equal(nrow(dat_final), 187)
  expect_equal(ncol(dat_final), 9)

})