R/coeffvar.R

coeffvar <-
function(x){
  n<-length(x)
  cv<- sd(x)/mean(x)
  cvstar<- (1+1/(4*n))*cv # bias corrected
  list(cv=cv,"bccv"=cvstar) 
}

Try the acid package in your browser

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

acid documentation built on May 1, 2019, 10:14 p.m.