R/frcv.R

Defines functions frcv

Documented in frcv

frcv<-function(data,Ps)
{
  Qs<-as.vector(quantile(data,Ps))
  Cs<-c();for(k in 1:length(Qs)) Cs<-c(Cs,sd(data[data>=Qs[k]]-Qs[k])/mean(data[data>=Qs[k]]-Qs[k]));Cs
}

Try the ercv package in your browser

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

ercv documentation built on Oct. 30, 2019, 9:49 a.m.