R/simulate-branching-process.R

In skgallagher/TBornotTB: Analyze Tuberculosis Patients in Maryland

## Simulate Branching process
##


simumlate_one_bp <- function(init_smear,
                             cluster_id,
                             max_gen = 5,
                             max_N = 25,
                             max_T = 3650,
                             prob_inf_mat = .1,
                             smear_pop = c(0, 1),
                             smear_weights = c(1, 1),
                             mean_serial_int = 180,
                             sd_serial_int = 40){


  return(cluster)
}