R/TrenchMean.R

Defines functions `TrenchMean`

`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 Sept. 18, 2024, 5:07 p.m.