R/gap.R

gap <-
function(x,k){
rho <-k*median(x)
gap <-sum(max(x-rho,0))/length(x)
return(gap)
}

Try the affluenceIndex package in your browser

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

affluenceIndex documentation built on May 2, 2019, 8:20 a.m.