1 x <- x %>% group_by(group) %>%
   2            mutate(sum=sum(var))
   3 mean(x)
   4 mm <- lm(y ~ x, data = data)