R/weightmecov.R

weightmecov <-
function(data, weights, n, nvar) {
	weightedcov <- cov.wt(x=data, wt=weights, center=T)
	return(list(center=weightedcov$center, cov=weightedcov$cov*sum(weights)/(sum(weights)-1)))
}
musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.