# Create Age Group variable
unswft_byage_nv <- unswft_byage %>%
mutate(Age_Group = case_when(
Age >= 10 & Age <= 17 ~ "Adolescence (10-17)",
Age >= 18 & Age <= 35 ~ "Early Adult (18-35)",
Age >= 36 & Age <= 49 ~ "Early Middle Age (36-49)",
Age >= 50 & Age <= 59 ~ "Middle Age (50-59)",
Age >= 60 & Age <= 69 ~ "Older Middle Age (60-69)",
Age >= 70 & Age <= 76 ~ "Seniors (70-76)"
)) %>%
filter(Age >= 10 & Age <= 76)
# Calculate mean, standard deviation, and count for each age group and variables, excluding NA values
accuracy_stats <- unswft_byage_nv %>%
group_by(Age_Group) %>%
summarise(
Overall_Mean = mean(Overall, na.rm = TRUE),
Overall_SD = sd(Overall, na.rm = TRUE),
Overall_N = sum(!is.na(Overall)),
Memory_Mean = mean(Memory, na.rm = TRUE),
Memory_SD = sd(Memory, na.rm = TRUE),
Memory_N = sum(!is.na(Memory)),
Sort_Mean = mean(Sort, na.rm = TRUE),
Sort_SD = sd(Sort, na.rm = TRUE),
Sort_N = sum(!is.na(Sort))
)
# Create a gt table
summary_table <- accuracy_stats %>%
gt() %>%
cols_label(
Age_Group = "Age Group",
Overall_Mean = "Overall Mean",
Overall_SD = "Overall SD",
Overall_N = "Overall Count",
Memory_Mean = "Memory Mean",
Memory_SD = "Memory SD",
Memory_N = "Memory Count",
Sort_Mean = "Sorting Mean",
Sort_SD = "Sorting SD",
Sort_N = "Sorting Count"
)
summary_table
| Age Group |
Overall Mean |
Overall SD |
Overall Count |
Memory Mean |
Memory SD |
Memory Count |
Sorting Mean |
Sorting SD |
Sorting Count |
| Adolescence (10-17) |
59.08730 |
5.776641 |
1470 |
24.89660 |
3.346588 |
1470 |
46.00816 |
5.463157 |
1470 |
| Early Adult (18-35) |
62.84291 |
6.489010 |
10163 |
26.25927 |
3.472526 |
10163 |
49.15222 |
6.119999 |
10163 |
| Early Middle Age (36-49) |
62.52136 |
6.388784 |
6905 |
26.10789 |
3.470214 |
6905 |
48.91774 |
6.120971 |
6905 |
| Middle Age (50-59) |
61.12893 |
5.891448 |
3149 |
25.02763 |
3.320769 |
3149 |
48.32709 |
5.818984 |
3149 |
| Older Middle Age (60-69) |
59.81782 |
5.757233 |
1139 |
24.20018 |
3.205383 |
1139 |
47.58121 |
5.768623 |
1139 |
| Seniors (70-76) |
58.78205 |
5.051815 |
169 |
23.78107 |
2.932677 |
169 |
46.75740 |
5.231005 |
169 |