Create an epidemiological record of infectors and infectees with corresponding infection and recovery times
makeEpiRecord(lambda, duration = 1, NumCases = 50)a numeric vector specifying the time varying intensity lambda(t) which is passed to simNHP.fun to generate the non-homogeneous Poisson process.
the fixed duration of infection (default is 1)
the approximate number of infected cases (default is 50)
A matrix with columns "Infectee", "Infector", "InfnTime" (infection time), "RecTime" (recovery time), "DoneFlag".
Suitable for using with getLabGenealogy
myepirecord <- makeEpiRecord(c(1,2,3,4), duration=2, NumCases=100)