library("sda")
## prepare data set
data(iris) # good old iris data
X = as.matrix(iris[,1:4])
Y = iris[,5]
## estimate centroids and empirical pooled variances
centroids(X, Y)
## include also group-specific variances
centroids(X, Y, var.groups=TRUE)
## and inverse pooled correlation
centroids(X, Y, var.groups=TRUE, invcor.pooled=TRUE)
## use shrinkage estimator for variances and correlations
centroids(X, Y, var.groups=TRUE, invcor.pooled=TRUE, shrink=TRUE)Run the code above in your browser using DataLab