epiwave.params

The goal of epiwave.params is to ...

Installation

You can install the development version of epiwave.params from GitHub with:

# install.packages("devtools")
devtools::install_github("idem-lab/epiwave.params")

Example

This is a basic example which shows you how to solve a common problem:

library(epiwave.params)

dist <- distributional::dist_weibull(shape = 2, scale = 3)
delay_probs_from_dist <- parametric_dist_to_distribution(dist)



data <- data.frame(sym_date = rep(seq(from = as.Date('2023-01-2'),
                                      to = as.Date('2023-03-4'),
                                      by = 'day'),
                                  each = 20))
data$notif_date <- data$sym_date + rpois(nrow(data), 4)
delay_probs_from_data <- data_to_distribution(data)


combined <- add(delay_probs_from_dist,
                delay_probs_from_data)

# adding more than one test <- add(combined, delay_probs_from_data)

sero_curve_data <- read.csv('tests/test_workflows/data_positivity_draft.csv')


out <- data_to_curve(sero_curve_data$days_since_onset,
                     sero_curve_data$p_pos_median)