R/wtdVar.R

In kanova: Quasi Analysis of Variance for K-Functions

Defines functions wtdVar

Documented in wtdVar

wtdVar <- function(x) {
    mn   <- wtdMean(x)
    n    <- length(x)
    sqdiff <- vector("list",n)
    for(i in 1:n) {
        sqdiff[[i]] <- (x[[i]] - mn)^2
        attr(sqdiff[[i]],"weight") <- attr(x[[i]],"weight")
    }
    wtdMean(sqdiff)
}

Try the kanova package in your browser