Title

edgeR_modes <- sit_met_edgeR$modes
pw_s <- edgeR_modes %>% table %>% as.data.frame
colnames(pw_s) <- c("Mode", "Freq")
pw_s$Class <- lapply(as.character(pw_s$Mode), findClass) %>% unlist
pw_s$Prop <- pw_s$Freq / sum(pw_s$Freq)


taylo5jm/interactions documentation built on May 31, 2019, 3:57 a.m.