2 function(Data,reads,type)
7 poolM=cbind(poolM,Data[[po]][,1])
8 rownames(poolM)=rownames(Data[[1]])
9 colnames(poolM)=poolnames
11 #poolValue=poolM*reads
14 poolValue[,col]=poolM[,col]*reads[col]
15 poolValue=round(poolValue)
18 poolM=cbind(Data[[1]][,2],poolM)
19 poolValue=cbind(Data[[1]][,2],poolValue)
20 colnames(poolM)=c("Groups",poolnames)
21 colnames(poolValue)=c("Groups",poolnames)
23 poolOutput=list(poolM=poolM,poolValue=poolValue)