tests/testthat/test_kpis.R

test_that("kpiEventsInTime() works", {
  load("../../data/simScenario.RData")
  expect_equal(kpiEventsInTime(simScenario$events[1:4,]), 75)
  expect_equal(kpiEventsInTime(simScenario$events), 72)
})
symbolrush/plot11R documentation built on May 31, 2019, 12:47 a.m.