#
# project: LTBI screening
# N Green
# Oct 2016
#
# histogram plots
# this is only useful for the complete gridded set of scenarios
calc.INMB(e = e.total,
c = c.total,
wtp = wtp_threshold) %>%
hist(breaks = 10,
main = "INMB")
calc.ICER(e = e.total,
c = c.total) %>%
hist(main = "ICER")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.