R code for the optimal control of a pathogen on a network. (Very rough/broken at the moment)