R/avespecvar.R

avespecvar <-function (spectrum) {

m <- spectrum$S
m <- matrix(m,nrow=dim(m)[1])

statistic<-mean(rowVars(m))

return(statistic)

}
nunesmatt/LS2Wstat documentation built on May 15, 2019, 3:34 p.m.