R/var.rwts.R

var.rwts <-
function (w) 
{
    n <- length(w)
    ans <- mean((n * w - 1)^2)
    return(ans)
}

Try the HPbayes package in your browser

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

HPbayes documentation built on May 2, 2019, 5:53 a.m.