Remote Cog (01:30:23)
Karl Brown
2023-01-30
Making changes to UCLA-L scoring
Scores for GAD-7
Scores for LSNS-R
Scores for UCLA-L
Scores for SF-20
| Test | N | Completion Percentage |
|---|---|---|
| GAD-7 | 7 | 100.0 |
| LSNS-R | 6 | 100.0 |
| UCLA-L | 6 | 100.0 |
| SF-20 | 3 | 100.0 |
| MoCA | 3 | 66.7 |
| Overall | 24 | 96.4 |
Phase C Completion (from more recent data [3/1/22])
gad1 <- rc_gad_all %>% filter(Modality == "Phase C" & Week == "Week 1") %>% summarise(n = n())
gad2 <- rc_gad_all %>% filter(Modality == "Phase C" & Week == "Week 2") %>% summarise(n = n())
ucla1 <- rc_ucla_all %>% filter(Modality == "Phase C" & Week == "Week 1") %>% summarise(n = n())
ucla2 <- rc_ucla_all %>% filter(Modality == "Phase C" & Week == "Week 2") %>% summarise(n = n())
lsns1 <- rc_lsns_all %>% filter(Modality == "Phase C" & Week == "Week 1") %>% summarise(n = n())
lsns2 <- rc_lsns_all %>% filter(Modality == "Phase C" & Week == "Week 2") %>% summarise(n = n())
sf20 <- rc_sf20 %>% filter(Modality == "Phase C") %>% summarise(n = n())
comp <- data.frame("Test" = c("GAD-7", "LSNS-R", "UCLA-L", "SF-20*"), "N" = rep(6, 4), "Week1" = c(gad1$n, lsns1$n, ucla1$n, sf20$n), "Week2" = c(gad2$n, lsns2$n, ucla2$n, "-"))
comp %>% kbl(col.names = c("Exam","N Possible","N Complete (Week 1)", "N Complete (Week 2)")) %>% kable_classic(full_width = F, html_font = "Arial") %>% footnote(symbol = c("Exam only administered during week 1")) %>% save_kable("phase_c_comp.jpg", zoom = 3)