R/cvv.R

"cvv" <-
function(data) {
   sd <- apply(data, 1, function(x) {sd(x, na.rm = TRUE)})
   mean <- rowMeans(data, na.rm = TRUE)
   cvValue <- sd / abs(mean)
   return(cvValue)
}

Try the ABarray package in your browser

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

ABarray documentation built on Nov. 17, 2017, 1:18 p.m.