33 lines
809 B
R
33 lines
809 B
R
# Regression - sensitivity
|
|
|
|
|
|
outs<-c("mdi_1","mdi_6")
|
|
|
|
|
|
## Non-stratified
|
|
|
|
|
|
source("biv_mul.R")
|
|
|
|
bm_16_sens_tbl_rtf <- file("bm_16_sens_tbl.RTF", "w")
|
|
writeLines(bm_16_tbl%>%as_gt()%>%as_rtf(), bm_16_sens_tbl_rtf)
|
|
close(bm_16_sens_tbl_rtf)
|
|
|
|
bm_16_tbl %>% # build gtsummary table
|
|
as_gt() %>% # convert to gt table
|
|
gt::gtsave( # save table as image
|
|
filename = "bm_16_tbl_sens.png"
|
|
)
|
|
|
|
|
|
source("biv_mul_strat.R")
|
|
|
|
bm_16_tbl_strat_sens_rtf <- file("bm_16_tbl_strat_sens.RTF", "w")
|
|
writeLines(bm_16_tbl_strat%>%as_gt()%>%as_rtf(), bm_16_tbl_strat_sens_rtf)
|
|
close(bm_16_tbl_strat_sens_rtf)
|
|
|
|
bm_16_tbl_strat %>% # build gtsummary table
|
|
as_gt() %>% # convert to gt table
|
|
gt::gtsave( # save table as image
|
|
filename = "bm_16_tbl_strat_sens.png"
|
|
) |