require(datanugget)
## small example
X = cbind.data.frame(rnorm(10^3),
rnorm(10^3),
rnorm(10^3))
suppressMessages({
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.PCA.info = DN.Wpca(my.DN)
})
my.DN.PCA.info$sdev
my.DN.PCA.info$rotation
my.DN.PCA.info$x
Run the code above in your browser using DataLab