powered by
get_lambda_max
get_lambda_max(d, alpha, n, eps = 0.01)
n <- 10 p <- 5 set.seed(12345) X <- matrix(rnorm(n*p),n,p) d <- svd(X)$d**2 alpha <- get_alpha(X) get_lambda_max(d,alpha,n)
Run the code above in your browser using DataLab