Skip to content

Instantly share code, notes, and snippets.

@mribeirodantas
Created April 5, 2020 20:54
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save mribeirodantas/ef90c8933c00d69c45900dc2f1f027e6 to your computer and use it in GitHub Desktop.
Save mribeirodantas/ef90c8933c00d69c45900dc2f1f027e6 to your computer and use it in GitHub Desktop.
df %>%
group_by(estado) %>%
filter(is.finite(growth_rate_casos)) %>%
filter(is.finite(growth_rate_obitos)) %>%
summarise_at(c('growth_rate_casos', 'growth_rate_obitos'), funs(mean)) -> casos_obitos
rm(df2, brasil, df, growth_rate)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment