print.seroincidence {serocalculator}

Print Method for seroincidence Object

Description

Custom print() function to show output of the seroincidence calculator est.incidence().

Usage

## S3 method for class 'seroincidence'
print(x, ...)

Arguments

x

A list containing output of function est.incidence.by().

...

Additional arguments affecting the summary produced.

Value

A list containing the output of the function est.incidence().

Examples

library(tidyverse)

xs_data <- load_pop_data("https://osf.io/download//n6cp3/") %>%
  clean_pop_data()

curve <- load_curve_params("https://osf.io/download/rtw5k/") %>%
  filter(antigen_iso %in% c("HlyE_IgA", "HlyE_IgG")) %>%
  slice(1:100, .by = antigen_iso) # Reduce dataset for the purposes of this example

noise <- load_noise_params("https://osf.io/download//hqy4v/")


est1 <- est.incidence(
  pop_data = xs_data %>% filter(Country == "Pakistan"),
  curve_param = curve,
  noise_param = noise %>% filter(Country == "Pakistan"),
  antigen_isos = c("HlyE_IgG", "HlyE_IgA")
)

print(est1)