# See Baio G., Dawid A.P. (2011) for a detailed description of the
# Bayesian model and economic problem
#
# Load the processed results of the MCMC simulation model
data(Vaccine)
#
# Runs the health economic evaluation using BCEA
m <- bcea(e,c,ref=2,interventions=treats)
#
# Computes the EVPPI for a bunch of parameters
inp <- CreateInputs(vaccine)
ev <- evppi(parameter=c(38:44),input=inp$mat,he=m)Run the code above in your browser using DataLab