# with dplyr
library(dplyr)
cholesterin_by_age <- your_table %>%
group_by(ages) %>%
summarize(mean = mean(cholesterin), sd = sd(cholesterin)) %>%
ungroup()
# with data.table
library(data.table)
setDT(your_table)
cholesterin_by_age <- your_table[, .(mean = mean(cholesterin), sd = sd(cholesterin)), keyby = ages]
# dplyr
cholesterin_by_age <- your_table %>%
mutate(age_group = cut(ages, breaks = 10)) %>%
group_by(age_group) %>%
summarize(mean = mean(cholesterin), sd = sd(cholesterin))
# data.table
cholesterin_by_age <- your_table[, .(mean = mean(cholesterin), sd = sd(cholesterin)), keyby = .(age_group = cut(ages, breaks = 10)]