R/avespecvar.R

avespecvar <-function (spectrum) {

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

statistic<-mean(rowVars(m))

return(statistic)

}

Try the LS2Wstat package in your browser

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

LS2Wstat documentation built on May 2, 2019, 5:45 a.m.