unmut<-exprSet_symbol_1[,c(1,2,3,4,5,8,9,10,12,23,30,31,37,38)] mut<-exprSet_symbol_1[,c(6,7,11,13,14,15,16,17,18,19,20,21,22,24,25,26,27,28,29,32,33,34,35,36)]
for(i in 1:nrow(exprSet_symbol_1)){ p_value[i]<-t.test(unmut[i,],mut[i,])$p.value } exprSet_symbol_1$p_value<-p_value exprSet_symbol_p_005 <- exprSet_symbol_1[p_value<0.05,] #dim(exprSet_symbol_p) #[1] 2503 39 exprSet_symbol_p_001 <- exprSet_symbol_1[p_value<0.01,] #dim(exprSet_symbol_p) #[1] 969 39
exprSet_symbol_unlog<-2^exprSet_symbol_1 unmut<-exprSet_symbol_unlog[,c(1,2,3,4,5,8,9,10,12,23,30,31,37,38)] mut<-exprSet_symbol_unlog[,c(6,7,11,13,14,15,16,17,18,19,20,21,22,24,25,26,27,28,29,32,33,34,35,36)]
|