transfer from old repo

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

@@ -0,0 +1,9 @@
+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)