R/gini.Dag.R

gini.Dag <-
function(a,p){ # exact from Kleiber p.217
  Gini<-gamma(p)*gamma(2*p+1/a)/(gamma(2*p)*gamma(p+1/a))-1
  return(Gini)
}

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.