Included EBSeq for downstream differential expression analysis

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

diff --git a/EBSeq/R/GetPatterns.R b/EBSeq/R/GetPatterns.R
new file mode 100644 (file)
index 0000000..436df74
--- /dev/null
+++ b/EBSeq/R/GetPatterns.R
@@ -0,0 +1,12 @@
+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
+
+}