Incorrect: `midbuild <- map_df(.x = 0:50 * 10 + 1, ~ prebuild %>% mutate(score = ifelse(is.na(score), 0, score), score_smooth = zoo::rollmean(score, .x, 0), score_smooth = score_smooth / max(score_smooth), rolls = .x))` Correct: `midbuild <- map_df(.x = 0:50 * 10 + 1, ~ prebuild %>% mutate(score = ifelse(is.na(value), 0, value), score_smooth = zoo::rollmean(score, .x, 0), score_smooth = score_smooth / max(score_smooth), rolls = .x))`