counts <- read.csv("transcript_abundance_quantification_table.csv",header=T,row.names=1) cutoff = 0.5 num =1 group1 <- data.frame(counts[,1:4][which(apply(counts[,1:4 ...