library(QZ, quiet = TRUE)
### https://www.netlib.org/lapack/lug/node122.html
(ret <- qz.geigen(exAB1$A, exAB1$B))
### https://www.netlib.org/lapack/lug/node117.html
(ret <- qz.geigen(exAB2$A, exAB2$B))
### https://www.netlib.org/lapack/lug/node92.html
(ret <- qz.geigen(exA1$A))
### https://www.netlib.org/lapack/lug/node87.html
(ret <- qz.geigen(exA2$A))
Run the code above in your browser using DataLab