powered by
covW(data, groups)
cov
typprobClass
data(iris) poolCov <- covW(iris[,1:4],iris[,5])
Run the code above in your browser using DataLab