# create data set
x1 = matrix(runif(200), ncol = 2)
x2 = matrix(rnorm(200), ncol = 2)
x = list(x1, x2)
# create weighting matrix
W = matrix(c(0, 1, 1, 0), ncol = 2)
# calculate ssMRCD
localCovs = ssMRCD(x, weights = W, lambda = 0.5)
# scale used data
scale_ssMRCD(localCovs,
multivariate = TRUE)
# scale new data
scale_ssMRCD(localCovs,
X = matrix(rnorm(20), ncol = 2, nrow = 10),
groups = rep(2, 10),
multivariate =TRUE)
Run the code above in your browser using DataLab