require(mem)
## Castilla y Leon Influenza Rates data
data(flucyl)
## Optimal timing of an epidemic
tim<-epitiming(flucyl[1])
print(tim)
summary(tim)
plot(tim)
## Threshold calculation
epi<-epimem(flucyl)
print(epi)
summary(epi)
plot(epi)Run the code above in your browser using DataLab