data(agememory)
aggregate(cbind(lag0E1, lag0E2, lag0E3, lag0E4,
lag15E1, lag15E2, lag15E3, lag15E4, F1, F2) ~ group,
data = agememory, sum)
xtabs(~ group + sex, agememory) |> addmargins()
Run the code above in your browser using DataLab