{{{#!highlight r
x <- x %>% group_by(group) %>%
           mutate(sum=sum(var))
mean(x)
mm <- lm(y ~ x, data = data)
}}}