scripts/05g-INMB_ICER_histograms.R

#
# 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")
n8thangreen/LTBIscreeningproject documentation built on May 23, 2019, 12:01 p.m.