Scaling Relationships

Travel Malaria

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

load("sis.rda")

sis_trv <- sis 
sis_trv <- setup_travel_eir(sis_trv, 5/365)
sis_trv <- setup_static_travel(sis_trv, 0.05, 1) 

xde_scaling_eir(sis_trv, 25) -> sis_trv

plot_eirpr(sis, grey(.8))
lines_eirpr(sis_trv, "darkgreen")