trans_freq<-read.csv("../../Analysis/HIVE/results/transmission_pairs_freq.poly.donor.csv",
stringsAsFactors = F)
subset(trans_freq,pair_id %in% c(1,4,22))->small_trans
small_trans<-dplyr::select(small_trans,-dplyr::starts_with("X"))
devtools::use_data(small_trans,overwrite = T)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.