Numeric CV% of a sample
numcv(x, ...)
x
numeric vector
...
other arguments for sd() and mean()
Percent cv
test_x <- rnorm(1000, mean=50, sd=5) cv <- numcv(test_x) cv # expect ~ 10(%)