remove alternative code for term table

transpose-publishing · Jul 5, 2020 · cf4f71f · cf4f71f
1 parent e2e0dc5
commit cf4f71f
Showing 1 changed file with 0 additions and 21 deletions.
diff --git a/02-analysis-writeup.Rmd b/02-analysis-writeup.Rmd
@@ -540,27 +540,6 @@ stemmed_words %>%
   select(Term = word_stemmed, Variants = variants, `Term frequency` = n, 
          `Proportion of policies that contain term` = prop_of_texts) %>% 
   knitr::kable(caption = "Propensity of terms in co-review policies")
-
-
-
-# top_terms %>% 
-#   left_join(stemmed_words) %>% 
-#   select(-policy_id) %>% 
-#   distinct() %>% 
-#   group_by(word_stemmed) %>% I
-# 
-# 
-# 
-#   mutate(variants = list(sample(unique(word), pmin(3, length(unique(word))))),
-#          variants = map_chr(variants, paste, collapse = "; ")) %>% 
-#   select(-word) %>% 
-#   distinct()
-#   select(Term = word_stemmed, Variants = variants, `Term frequency` = n, 
-#          `Proportion of policies that contain term` = prop_of_texts)
-#   
-
-
-
 ```