Cacher is the code snippet organizer for pro developers

library(magrittr)
data(tcells, package = "bninfo")
tcell_data <- tcells$processed$.data
interventions <- tcells$processed$interventions
data(tcell_examples, package = "bninfo")
averaging_tabu <- tcell_examples$averaging_tabu

averaging_tabu %>%
  mutate(weight = strength * direction) %>%
  arrange(desc(weight)) %>%
  head(20) %>% 
  .[c(1, 2, 6, 8, 9, 12, 14, 17, 18, 20), ]