R/QCCTSTrimMean.R

Defines functions QCCTS.TrimMean

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