# \donttest{
data(lipid_screen)
spec <- bigexp_terms(
Potency ~ PEG + Helper + Ionizable + Cholesterol +
Ionizable_Lipid_Type + N_P_ratio + flow_rate,
data = lipid_screen,
factorial_order = 3,
polynomial_order = 3,
include_pc_2way = TRUE,
include_pc_3way = FALSE
)
form_pot <- bigexp_formula(spec, "Potency")
form_siz <- bigexp_formula(spec, "Size")
form_pdi <- bigexp_formula(spec, "PDI")
mix <- list(list(
vars = c("PEG", "Helper", "Ionizable", "Cholesterol"),
lower = c(0.01, 0.10, 0.10, 0.10),
upper = c(0.05, 0.60, 0.60, 0.60),
total = 1.0
))
set.seed(123)
wmt_out <- svem_wmt_multi(
formulas = list(Potency = form_pot,
Size = form_siz,
PDI = form_pdi),
data = lipid_screen,
mixture_groups = mix,
wmt_transform = "neglog10",
wmt_control = list(seed = 123),
plot = TRUE
)
wmt_out$p_values
wmt_out$multipliers
## later: pass wmt_out$multipliers into svem_score_random()
# }
Run the code above in your browser using DataLab