R/QuantileNorm.R

Defines functions QuantileNorm

Documented in QuantileNorm

QuantileNorm=function(Data, Quantile){
	if(ncol(Data)==1)stop("Only 1 sample!")

	QtilePt=apply(Data, 2, function(i)quantile(i, Quantile))
#	Size= QtilePt * prod(QtilePt) ^ (-1/ncol(Data))
	Size=10^(log10(QtilePt)-sum(log10(QtilePt))*(1/ncol(Data)) )
	Size
	}

Try the EBSeq package in your browser

Any scripts or data that you put into this service are public.

EBSeq documentation built on Nov. 8, 2020, 6:52 p.m.