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

[rsem.git] / EBSeq / R / beta.mom.R

diff --git a/EBSeq/R/beta.mom.R b/EBSeq/R/beta.mom.R
deleted file mode 100644 (file)
index 269996d..0000000
--- a/EBSeq/R/beta.mom.R
+++ /dev/null
@@ -1,10 +0,0 @@
-beta.mom <-
-function(qs.in){
-       xbar<-mean(qs.in)
-       s2<-var(qs.in)
-       term<-(xbar*(1-xbar))/s2
-       alpha.hat<-xbar*(term-1)
-       beta.hat<-(1-xbar)*(term-1)
-       return(c(alpha.hat,beta.hat))
-}
-