https://github.com/cran/ltsa
Raw File
Tip revision: 0dbb71197f123f711e714db6f8f55b40031f4529 authored by A.I. McLeod on 14 December 2012, 00:00:00 UTC
version 1.4.4
Tip revision: 0dbb711
TrenchMean.R
`TrenchMean` <-
function(r,z){
    g1<-colSums(TrenchInverse(toeplitz(r)))
    sum(g1*z)/sum(g1)
}

back to top