calcFactorUpperquartile: calcFactorUpperquartile
In NormExpression: Normalize Gene Expression Data using Evaluated Methods

Please refer to the file /inst/doc/readme.pdf.

1	calcFactorUpperquartile(data, lib.size, p = p)

`data`
`lib.size`
`p`

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (data, lib.size, p = p)
{
    y <- t(t(data)/lib.size)
    f <- apply(y, 2, function(x) quantile(x[x != 0], p = p))
  }