# \donttest{
# Simulate two matrices
set.seed(123)
A <- matrix(rnorm(50 * 50), 50, 50)
B <- matrix(rnorm(50 * 50), 50, 50)
A <- A %*% t(A) # Make A symmetric
B <- B %*% t(B) + diag(50) * 0.1 # Make B symmetric positive definite
# Solve generalized eigenvalue problem
result <- geneig(A = A, B = B, ncomp = 3)
# }
Run the code above in your browser using DataLab