changed output format to contain FPKM etc. ; fixed a bug for paired-end reads

[rsem.git] / EBSeq / R / GetPatterns.R

diff --git a/EBSeq/R/GetPatterns.R b/EBSeq/R/GetPatterns.R
deleted file mode 100644 (file)
index 436df74..0000000
--- a/EBSeq/R/GetPatterns.R
+++ /dev/null
@@ -1,12 +0,0 @@
-GetPatterns<-function(Conditions){
-    if(!is.factor(Conditions))Conditions=as.factor(Conditions)
-       NumCond=nlevels(Conditions)
-       CondLevels=levels(Conditions)
-    #library(blockmodeling)
-    AllPartiList=sapply(1:NumCond,function(i)nkpartitions(NumCond,i))
-    AllParti=do.call(rbind,AllPartiList)
-       colnames(AllParti)=CondLevels
-       rownames(AllParti)=paste("Pattern",1:nrow(AllParti),sep="")
-       AllParti
-
-}