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.