demo <- demo_
out <- out_
demo <- add_death(demo, out_data = out)
demo <- add_serious(demo, out_data = out)
followup <- followup_
demo <- add_fup(demo, fup_data = followup)
desc_facvar(demo, c("death", "serious", "fup"))
Run the code above in your browser using DataLab