Summarize dplyr

output.Rout

Wrong mean: 5.84333333333333
Right mean: 5.936
The wrong mean didn't filter: 5.84333333333333

summarize_dplyr.r

library(dplyr)
library(glue)
data(iris)

wrong_mean <- iris                                             %>%
              filter(iris$Species == "versicolor")             %>%
              summarize(avg_sepal_length = mean(iris$Sepal.Length))

right_mean <- iris                                             %>% 
              filter(Species == "versicolor")                  %>%
              summarize(avg_sepal_length = mean(Sepal.Length))

print(glue("Wrong mean: {wrong_mean}
           Right mean: {right_mean}"))

unfiltered_mean <- mean(iris$Sepal.Length)

print(glue("The wrong mean didn't filter: {unfiltered_mean}"))