R/TrenchMean.R

`TrenchMean` <-
function(r,z){
    g1<-colSums(TrenchInverse(toeplitz(r)))
    sum(g1*z)/sum(g1)
}

Try the ltsa package in your browser

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

ltsa documentation built on May 2, 2019, 4:01 a.m.