# Compare decay patterns
lambda_lin <- eVal(20, "linear")
lambda_exp <- eVal(20, "exponential")
lambda_wie <- eVal(20, "wiener")
plot(1:20, lambda_lin, type = "b", log = "y", ylim = c(1e-10, 1),
main = "Eigenvalue Decay Patterns", xlab = "k", ylab = expression(lambda[k]))
lines(1:20, lambda_exp, col = "red", type = "b")
lines(1:20, lambda_wie, col = "blue", type = "b")
legend("topright", c("Linear", "Exponential", "Wiener"),
col = c("black", "red", "blue"), lty = 1, pch = 1)
Run the code above in your browser using DataLab