Slide 27
Slide 27 text
dat %>% group_nest(No) %>%
mutate(mean_x = map_dbl(data, ~mean(.$x)),
mean_y = map_dbl(data, ~mean(.$y)),
sd_x = map_dbl(data, ~sd(.$x)),
sd_y = map_dbl(data, ~sd(.$y))) %>%
mutate(model_lm = map(data, ~lm(y ~ x, data = .)),
rsq = map_dbl(model_lm, ~summary(.) %>% .$r.sq),
cor = map_dbl(data, ~cor(.$x, .$y)))