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

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

diff --git a/EBSeq/R/GetNg.R b/EBSeq/R/GetNg.R
deleted file mode 100644 (file)
index 9312f9a..0000000
--- a/EBSeq/R/GetNg.R
+++ /dev/null
@@ -1,10 +0,0 @@
-GetNg<- function(IsoformName, GeneName){
-       GeneNg = tapply(IsoformName, GeneName, length)
-       IsoformNg = GeneNg[GeneName]
-       names(IsoformNg) = IsoformName
-       GeneNgTrun=GeneNg
-       GeneNgTrun[GeneNgTrun>3]=3
-       IsoformNgTrun=IsoformNg
-       IsoformNgTrun[IsoformNgTrun>3]=3
-       out=list( GeneNg=GeneNg, GeneNgTrun=GeneNgTrun, IsoformNg=IsoformNg, IsoformNgTrun=IsoformNgTrun)
-       }