sim <- sim_data(scenario = "linear", n_trial = 60)
fit <- PSPI_generalizability(
X = as.matrix(sim$trials[, paste0("X", 1:10)]),
Y = sim$trials$Y,
A = sim$trials$A,
pi = sim$population$ps[sim$population$selected],
X_pop = as.matrix(sim$population[, paste0("X", 1:10)]),
pi_pop = sim$population$ps,
model = "SplineBART",
transformation = "InvGumbel",
verbose = FALSE,
nburn = 1, npost = 1
)
str(fit)
Run the code above in your browser using DataLab