# NOT RUN {
hts_pos <- hts_tst_pos(recency_example, from = "2021-01-01") # positive clients from January 2021
hts_recent <- hts_recent(hts_pos) # positive clients from above who had recency testing done
rtri_recent <- rtri_recent(hts_recent) # hts_recent clients who were presumed recent from RTRI
summarize_recency(
hts_pos,
hts_recent,
rtri_recent,
level = "facility_state",
names = c("positives", "recency_testing", "rtri_recent")
)
### If the `names` argument is not supplied, the names of the supplied data will be used instead
summarize_recency(
hts_pos,
hts_recent
)
# }
Run the code above in your browser using DataLab