Problem with "check" argument (evsi function)

[lucabenne]

Hi, when I run the following code (contained in https://raw.githubusercontent.com/convoigroup/Chemotherapy_Book/main/04_analysis/05_Expected_Value_of_Sample_Information_RB.R) with "check = TRUE":

evsi_OR <- evsi(outputs = chemotherapy_output,
inputs = m_params,
pars = c("p_side_effects_t1", "p_side_effects_t2"),
n = seq(50, 1500, by = 500),
method = "gam",
datagen_fn = OR_datagen_fn,
par_fn = generate_psa_parameters,
check = TRUE)

I obtain the following error:

Error in names(attr(resall, "models")) <- as.character(resall$n) :
'names' attribute [1503] must be the same length as the vector [3]

Thanks for your help!

[chjackson]

Thanks for the report. I think this is now fixed in the development version by 48f4b8e.

To install the development version: remotes::install_github("chjackson/voi")