ps_5 error for getting mean in mtcars, REPREX

[daboombas]

Wondering how to get this to work? I am trying to get the mean of number of gears for cars with less than 8 cylinders.

library(reprex)
library(tidyverse)
data("mtcars")
x <- mtcars %>% 
  filter(cyl < 8) %>% 
  count(gear)
list(x) %>% 
  mean()
#> Warning in mean.default(.): argument is not numeric or logical: returning NA
#> [1] NA

^{Created on 2020-03-18 by the reprex package (v0.3.0)}

[siddharthprabhu]

I think you want summarize() rather than count().

library(dplyr, warn.conflicts = FALSE)
#> Warning: package 'dplyr' was built under R version 3.6.3

mtcars %>%
  filter(cyl < 8) %>%
  summarize(mean_gear = mean(gear))
#>   mean_gear
#> 1         4

^{Created on 2020-03-19 by the reprex package (v0.3.0)}