data-raw/small_trans.R

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)
jtmccr1/HIVEr documentation built on May 29, 2019, 1:50 a.m.