Content - 6066424926612a31c32ee36e6df5a0279f5d6680 - 9d95dc6/R/TrenchMean.R

TrenchMean.R

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