R/r.hc.R

r.hc <-function(x,k){
rho <-k*median(x)

r.3 <-length(x[x>rho])/length(x)

outlist=list(count.rich=length(x[x>rho]), r.hc=r.3)
return(outlist)	

}

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.