R/evicv.R

In ercv: Fitting Tails by the Empirical Residual Coefficient of Variation

Defines functions evicv

Documented in evicv

evicv<-function(cv) 
{
  if (sum(cv<=0)!=0)  warning("The function is available for cv>0",call. = TRUE)
  else  (cv^2-1)/(2*cv^2)
}

Try the ercv package in your browser