library(ebdbNet)
tmp <- runif(1) ## Initialize random number generator
set.seed(1241901) ## Set seed
x <- matrix(rnorm(100), nrow = 10, ncol = 10)
svd <- svd(x)$d
dim <- sumFunc(svd, 0.90) ## 7 singular values contribute 90% of total variance
Run the code above in your browser using DataLab