Error in `svglite_(filename, bg, width, height, pointsize, standalone, 
    always_valid)`: Graphics API version mismatch

list_for_uc <- list(u = as.vector(coef(u_model)))
bp_uc <- bias_params(coef_list = list_for_uc)
test_that("adjust_uc, 0 confounders: OR and CI output", {
nobias_model <- lm(Y_cont ~ X_cont + C1 + C2 + C3 + U,
u_model <- glm(U ~ X_cont + Y_cont + C1 + C2 + C3,
test_that("adjust_uc, 3 confounders: OR and CI output", {
multibias_result_list = list("Adjusted" = val_run)

"adjust_uc, 0 confounders: OR and CI output"
"adjust_uc, 3 confounders: OR and CI output"