test_that("ir function works as expected", {
# regression test to check the results of the function
# do not change.
data <- readRDS("testdata/irtest.Rds")
df <- data$df
table <- data$table
stats <- data$stats
results <- ir(df$cases,df$exposure,df$time)
expect_equal(results$table, table)
expect_equal(results$stats, stats)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.