add print/online statistic

baunef · Nov 28, 2023 · 7668bd9 · 7668bd9
1 parent a042826
commit 7668bd9
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/figures/multi_models_ame_variable.pdf b/figures/multi_models_ame_variable.pdf
diff --git a/visualization/inter_media_differences.R b/visualization/inter_media_differences.R
@@ -76,6 +76,19 @@ media_score %>%
 
 print(media_score)
 
+# Print vs Online Score
+print_vs_online <- gcnews %>% 
+  group_by(source_group) %>% 
+  summarize(
+    par_mean = mean( PopBERT_AE + PopBERT_PC > 1 ) * 100,
+    par_cf = qt(0.975,df=n()-1)*sd(PopBERT_AE + PopBERT_PC > 1)/sqrt(n()) * 100
+  ) %>% ungroup %>% arrange(desc(par_mean)) %>%
+  mutate(
+    par_mean = round(par_mean, digits=2),
+    par_cf = round(par_cf, digits=2)
+  )
+print(print_vs_online)
+
 
 # Visualization -----------------------------------------------------------