R/edf.R

Defines functions edf

Documented in edf

edf<-function(xin, xout)
{
  n<-length(xout)
  nn<-length(xin)
  xin.use<-sort(xin)
  out<-sapply(1:n, function(i, xin.use, xout) length(which(xin.use <= xout[i])), xin.use, xout)
  out/nn
}

Try the asymmetry.measures package in your browser

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

asymmetry.measures documentation built on July 22, 2020, 9:06 a.m.