Included EBSeq for downstream differential expression analysis

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

diff --git a/EBSeq/R/QuantileNorm.R b/EBSeq/R/QuantileNorm.R
new file mode 100644 (file)
index 0000000..a4e49bd
--- /dev/null
+++ b/EBSeq/R/QuantileNorm.R
@@ -0,0 +1,8 @@
+
+QuantileNorm=function(Data, Quantile){
+       #SortData=apply(Data, 2, sort)
+       QtilePt=apply(Data, 2, function(i)quantile(i, Quantile))
+       Size= QtilePt * prod(QtilePt) ^ (-1/ncol(Data))
+       Size
+       }
+