Profiling the code for speed

profileNow <- FALSE

if (profileNow) {
    library(plyr)
    library(profvis)

    profvis({
        library(bcimodel)
        uganda_stdpop <- simpolicies(ex1$pol, ex1$nh, ex1$tx, sims=10)
    })
}


cancerpolicy/bcimodel documentation built on June 30, 2019, 12:39 a.m.