set.seed(55)
X = cbind.data.frame(rnorm(10^3),
rnorm(10^3),
rnorm(10^3))
# with center.method = "original"
my.DN = create.DN(x = X,
R = 500,
delete.percent = .1,
DN.num1 = 500,
DN.num2 = 250,
no.cores = 0,
make.pbs = FALSE)
my.DN.means = getDN.means(x = X,
DN = my.DN)
my.DN.means
Run the code above in your browser using DataLab