PAaSO/1 PA Decline/Fra DDV/241002/excluded.R

9 lines
428 B
R
Executable file

targets::tar_read(df_all_data_formatted) |>
get_vars(c("clin","lifestyle","ses", "assess.pred")) |>
dplyr::mutate(exclude=ifelse(is.na(pase_0)|is.na(pase_4),"Excluded","Included"))|>
dplyr::select(-pase_0,-pase_4) |>
dplyr::select(exclude,soc_status_nowork, fam_indk_hl, edu_level_hl)|>
gtsummary::tbl_summary(by=exclude) |>
gtsummary::add_p() |>
fix_labels() |>
mask_micro_summary(micro.n = 5)