View source: R/evaluateMetrics.R
| getCV | R Documentation | 
Please refer to the file /inst/doc/readme.pdf.
getCV(data, cvNorm = TRUE)
data | 
 Please refer to the file /inst/doc/readme.pdf.  | 
cvNorm | 
 Please refer to the file /inst/doc/readme.pdf.  | 
##---- 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, cvNorm = TRUE)
{
    if (!is.matrix(data))
        data <- as.matrix(data)
    if (cvNorm) {
        rawCV <- apply(data, 1, function(x) {
            sd(log2(x[x != 0]))/mean(log2(x[x != 0]))
        })
        (rawCV - min(rawCV))/(max(rawCV) - min(rawCV))
    }
    else {
        apply(data, 1, function(x) {
            sd(x)/mean(x)
        })
    }
  }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.