tests/testthat/test-draw_sc_step.R

In nhppp: Simulating Nonhomogeneous Poisson Point Processes

test_that("draw_sc_step() arguments work", {
  set.seed(123)
  expect_no_error(df0 <- draw_sc_step(time_breaks = c(0, 10), lambda_vector = 1, atmost1 = TRUE))
  check_ppp_sample_validity(times = df0, t_min = 0, t_max = 10, atmost1 = TRUE)

  expect_no_error(df0 <- draw_sc_step(time_breaks = c(0:10), lambda_vector = runif(10), atmost1 = TRUE))
  check_ppp_sample_validity(times = df0, t_min = 0, t_max = 10, atmost1 = TRUE)

  expect_no_error(df1 <- draw_sc_step(time_breaks = c(0, 10), lambda_vector = 1))
  check_ppp_sample_validity(times = df1, t_min = 0, t_max = 10)

  expect_no_error(df1 <- draw_sc_step(time_breaks = c(0:10), lambda_vector = runif(10)))
  check_ppp_sample_validity(times = df1, t_min = 0, t_max = 10)

  expect_no_error(df1 <- draw_sc_step(time_breaks = c(0:10), lambda_vector = runif(10) / 1000, atleast1 = TRUE))
  check_ppp_sample_validity(times = df1, t_min = 0, t_max = 10, atleast1 = TRUE)

  expect_no_error(df1 <- draw_sc_step(time_breaks = c(0:10), lambda_vector = runif(10) / 1000, atmost1 = TRUE, atleast1 = TRUE))
  check_ppp_sample_validity(times = df1, t_min = 0, t_max = 10, atmost1 = TRUE, atleast1 = TRUE)
})