evppi_lrmm: requires data frame

[David-rios]

evppi_lrmm documents state require matrix or vector, but GAM needs data frame to run. Reproducible example:

library(dampack)
df_PSA <- data.frame(age = runif(100, min = 0 , max = 100),
                     utilities = runif(10))

nmb1 <- cbind("strat1" = runif(100),
              "strat2" = runif(100))

dampack::evppi_lrmm(nmb =nmb1,params = df_PSA,sel.params =  1:dim(df_PSA)[2])
evppi 
  0.1 
dampack::evppi_lrmm(nmb =nmb1,params = as.matrix(df_PSA),sel.params =  1:dim(df_PSA)[2])
Error in model.frame.default(formula = Loss[, d] ~ 1 + age + utilities +  : 
  'data' must be a data.frame, not a matrix or an array