out <- epiABM(type='SI', s.num=500, i.num=1, beta=0.2, cont=0.2, nsteps=500, nsims=20)
par(mar=c(3,3,1,1), mgp=c(2,1,0))
plotABM(out, 'i.num', simlines=TRUE, medline=TRUE, qnts=0.5)
# Plotting multiple compartment values
plotABM(out, 'i.num', simlines=FALSE, medline=TRUE, medcol=1, qnts=0.5, axs='r')
plotABM(out, 's.num', simlines=FALSE, medline=TRUE, medcol=2, qnts=0.5, qntscol=2, add=TRUE)
Run the code above in your browser using DataLab