Scaling Relationships

Antimalarial Drugs

library(ramp.xds)
library(ramp.library)
library(ramp.work)

load("sis.rda")

Xo = list(xi=2/365, rho=0.1)

sip <- xds_setup_cohort(Xname = "SIP", Xopts=Xo)

sip <- xds_setup_cohort(Xname = "SIP", Xopts=Xo)
xde_scaling_eir(sip, 25) -> sip 

sipd <- xds_setup_cohort(Xname = "SIPd", Xopts=Xo)
xde_scaling_eir(sipd, 25) -> sipd 

plot_eirpr(sis, grey(.8))
lines_eirpr(sip, "darkviolet")
lines_eirpr(sipd, "darkblue")