Filtered to those >= 30

Author: alyssapradhan

TV_hours_marital.csv

@@ -1,7 +1,7 @@
 "","marital","mean_tv_hours"
-"1","No answer",2.55555555555556
-"2","Never married",3.10517529215359
-"3","Separated",3.54961832061069
-"4","Divorced",3.085407239819
-"5","Widowed",3.912
-"6","Married",2.65042536736272
+"1","No answer",2.75
+"2","Never married",3.35900783289817
+"3","Separated",3.65129682997118
+"4","Divorced",3.12121212121212
+"5","Widowed",3.91523713420787
+"6","Married",2.65309584393554

code.R

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