tests/testthat/test_03_fluserf.R

In kmcconeghy/flumodelr: An R Package for Estimating Attributable Influenza Morbidity and Mortality

library(tidyverse, quietly = T, warn.conflicts = F)
library(lubridate, quietly = T, warn.conflicts = F)

context("fluserf")


test_that("fluserf computes correct estimates", {
  
  d <- flumodelr::fludta 
  d_pred <- fluserf(data=d, outc=perc_fludeaths, time=yrweek_dt)

  #load data
  dnames <- c("year", "week", "fludeaths", "alldeaths", 
              "perc_fludeaths", "yrweek_dt", "fluyr",
              "prop_flupos", "week_in_order", 
              "epi", "y0", "y0_ul")
  
  #Tests
  expect_s3_class(d_pred, "data.frame")
  expect_that(dnames, equals(names(d_pred)))
  expect_type(d_pred$y0, "double")
  expect_type(d_pred$y0_ul, "double")

})