# NOT RUN {
# To run the simulation with default parameters just call the function:
# }
# NOT RUN {
result <- simulate_usanalysis_sir()
# }
# NOT RUN {
# To choose parameter values other than the standard one, specify them, like such:
result <- simulate_usanalysis_sir(gmean = 2, gvar = 0.2, samples = 5, tfinal = 50)
# You should then use the simulation result returned from the function, like this:
plot(result$dat[,"g"],result$dat[,"Ipeak"],xlab='values for g',ylab='Peak Bacteria',type='l')
# }
Run the code above in your browser using DataLab