Filter to < 30

Author: alyssapradhan

code.R

@@ -2,7 +2,7 @@ library(tidyverse)
 library(here)
 
 tvhours_table <- gss_cat %>% group_by(marital) %>% 
-  filter(age >= 30) %>% 
+  filter(age < 30) %>% 
   summarise(mean_tv_hours = mean(tvhours, na.rm = TRUE))
 
-write.csv(tvhours_table, here("TV_hours_marital.csv"))
+write.csv(tvhours_table, here("TV_hours_marital.csv"))