tests/testthat/test-qqexp.R

In ppdiag: Diagnosis and Visualizations Tools for Temporal Point Processes

test_that("test qqexp", {
  hpp_obj <- pp_hpp(lambda = 1)
  events <- pp_simulate(hpp_obj, end = 10)
  # r <- pp_compensator(hpp_obj, events)
  expect_error(pp_qqexp(r = NULL), "No rescaled interevent times provided")
  expect_error(pp_qqexp(r = c(0)), "No rescaled interevent times provided")
  expect_error(pp_qqexp(r = c(-1, 0, 1)), "Incorrect interevent times provided")
})