R/QCCTSIQRS.R

Defines functions QCCTS.IQRS

QCCTS.IQRS<-function(x)
{
  x <- sort(zoo::coredata(x))
  a=ceiling(length(x)/4)
  return(x[length(x)-a+1]-x[a])
}
npremara/QCCTS documentation built on May 5, 2019, 3:51 a.m.