data(iris)
X <- iris[,1:4]
# Equivalence with covAxis
covW(X, alpha = -1, cf = ncol(X))
covAxis(X)
# Equivalence with cov4
covW(X, alpha = 1, cf = 1/(ncol(X)+2))
cov4(X)
# covW with alpha = 0.5
covW(X, alpha = 0.5)
Run the code above in your browser using DataLab