powered by
power_method(X, v = NULL, eps = 1e-06, maxiter = 100, verbose = FALSE)
TRUE
A = cbind(c(2, 1), c(12, 5)) power_method(A) eigen(A)$vectors[,1] # check B = cbind(c(1, 2, 0), c(2, 1, 3), c(0, 3, 1)) power_method(B)
Run the code above in your browser using DataLab