Package check result: ERROR Check: examples, Result: ERROR Running examples in ‘BCEA-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: evppi > ### Title: Expected Value of Perfect Partial Information (EVPPI) for > ### Selected Parameters > ### Aliases: evppi evppi.default evppi.bcea > > ### ** Examples > > # See Baio G., Dawid A.P. (2011) for a detailed description of the > # Bayesian model and economic problem > > ## Not run: > ##D # Load the post-processed results of the MCMC simulation model > ##D # original JAGS output is can be downloaded from here > ##D # https://gianluca.statistica.it/book/bcea/code/vaccine.RData > ##D > ##D data(Vaccine, package = "BCEA") > ##D treats <- c("Status quo", "Vaccination") > ##D > ##D # Run the health economic evaluation using BCEA > ##D m <- bcea(e.pts, c.pts, ref = 2, interventions = treats) > ##D > ##D # Compute the EVPPI for a bunch of parameters > ##D inp <- createInputs(vaccine_mat) > ##D > ##D EVPPI <- evppi(m, c("beta.1." , "beta.2."), inp$mat) > ##D > ##D plot(EVPPI) > ##D > ##D # deprecated (single parameter) methods > ##D EVPPI.so <- evppi(m, c("beta.1.", "beta.2."), inp$mat, method = "so", n.blocks = 50) > ##D EVPPI.sad <- evppi(m, c("beta.1.", "beta.2."), inp$mat, method = "sad", n.seps = 1) > ##D > ##D plot(EVPPI.so) > ##D plot(EVPPI.sad) > ##D > ##D # Compute the EVPPI using INLA/SPDE > ##D if (require("INLA")) > ##D x_inla <- evppi(he = m, 39:40, input = inp$mat) > ##D > ##D # using GAM regression > ##D x_gam <- evppi(he = m, 39:40, input = inp$mat, method = "GAM") > ##D > ##D # using Strong et al GP regression > ##D x_gp <- evppi(he = m, 39:40, input = inp$mat, method = "GP") > ##D > ##D # plot results > ##D if (require("INLA")) plot(x_inla) > ##D points(x_inla$k, x_inla$evppi, type = "l", lwd = 2, lty = 2) > ##D points(x_gam$k, x_gam$evppi, type = "l", col = "red") > ##D points(x_gp$k, x_gp$evppi, type = "l", col = "blue") > ##D > ##D if (require("INLA")) { > ##D plot(x_inla$k, x_inla$evppi, type = "l", lwd = 2, lty = 2) > ##D points(x_gam$k, x_gam$evppi, type = "l", col = "red") > ##D points(x_gp$k, x_gp$evppi, type = "l", col = "blue") > ##D } > ##D > ##D data(Smoking) > ##D treats <- c("No intervention", "Self-help", > ##D "Individual counselling", "Group counselling") > ##D m <- bcea(eff, cost, ref = 4, interventions = treats, Kmax = 500) > ##D inp <- createInputs(smoking_output) > ##D EVPPI <- evppi(m, c(2,3), inp$mat, h.value = 0.0000005) > ##D plot(EVPPI) > ## End(Not run) > > data(Vaccine, package = "BCEA") > treats <- c("Status quo", "Vaccination") > bcea_vacc <- bcea(e.pts, c.pts, ref = 2, interventions = treats) > inp <- createInputs(vaccine_mat) [1] "14 \nLinear dependence: removing column pi.2.2." [2] "15 \nLinear dependence: removing column pi.2.2." [3] "16 \nLinear dependence: removing column pi.2.2." [4] "17 \nLinear dependence: removing column pi.2.2." [5] "18 \nLinear dependence: removing column pi.2.2." [6] "19 \nLinear dependence: removing column pi.2.2." [7] "20 \nLinear dependence: removing column pi.2.2." [8] "21 \nLinear dependence: removing column pi.2.2." [9] "22 \nLinear dependence: removing column pi.2.2." [10] "29 \nLinear dependence: removing column pi.2.2." [11] "44 \nLinear dependence: removing column pi.2.2." [12] "45 \nLinear dependence: removing column pi.2.2." [13] "46 \nLinear dependence: removing column pi.2.2." [14] "47 \nLinear dependence: removing column pi.2.2." [1] "14 \nLinear dependence: removing column pi.2.1." [2] "15 \nLinear dependence: removing column pi.2.1." [3] "16 \nLinear dependence: removing column pi.2.1." [4] "17 \nLinear dependence: removing column pi.2.1." [5] "18 \nLinear dependence: removing column pi.2.1." [6] "19 \nLinear dependence: removing column pi.2.1." [7] "20 \nLinear dependence: removing column pi.2.1." [8] "21 \nLinear dependence: removing column pi.2.1." [9] "22 \nLinear dependence: removing column pi.2.1." [10] "29 \nLinear dependence: removing column pi.2.1." [11] "44 \nLinear dependence: removing column pi.2.1." [12] "45 \nLinear dependence: removing column pi.2.1." [1] "14 \nLinear dependence: removing column pi.1.1." [2] "15 \nLinear dependence: removing column pi.1.1." [3] "16 \nLinear dependence: removing column pi.1.1." [4] "17 \nLinear dependence: removing column pi.1.1." [5] "18 \nLinear dependence: removing column pi.1.1." [6] "19 \nLinear dependence: removing column pi.1.1." [7] "20 \nLinear dependence: removing column pi.1.1." [8] "21 \nLinear dependence: removing column pi.1.1." [9] "22 \nLinear dependence: removing column pi.1.1." [10] "29 \nLinear dependence: removing column pi.1.1." [11] "44 \nLinear dependence: removing column pi.1.1." [1] "14 \nLinear dependence: removing column Repeat.GP.2.2." [2] "15 \nLinear dependence: removing column Repeat.GP.2.2." [3] "16 \nLinear dependence: removing column Repeat.GP.2.2." [4] "17 \nLinear dependence: removing column Repeat.GP.2.2." [5] "18 \nLinear dependence: removing column Repeat.GP.2.2." [6] "19 \nLinear dependence: removing column Repeat.GP.2.2." [7] "20 \nLinear dependence: removing column Repeat.GP.2.2." [8] "21 \nLinear dependence: removing column Repeat.GP.2.2." [9] "22 \nLinear dependence: removing column Repeat.GP.2.2." [1] "14 \nLinear dependence: removing column Repeat.GP.2.1." [2] "15 \nLinear dependence: removing column Repeat.GP.2.1." [3] "17 \nLinear dependence: removing column Repeat.GP.2.1." [4] "18 \nLinear dependence: removing column Repeat.GP.2.1." [5] "20 \nLinear dependence: removing column Repeat.GP.2.1." [6] "21 \nLinear dependence: removing column Repeat.GP.2.1." [1] "14 \nLinear dependence: removing column Repeat.GP.1.1." [2] "17 \nLinear dependence: removing column Repeat.GP.1.1." [3] "20 \nLinear dependence: removing column Repeat.GP.1.1." > evppi(bcea_vacc, c("beta.1.", "beta.2."), inp$mat) Error: Package "voi (>= 1.0.1)" must be installed to use this function. Execution halted