Small mistake in one of the sample code (rolling average)

[AnttiRask]

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))