library(QZ, quiet = TRUE)
### https://www.netlib.org/lapack/lug/node124.html
(ret <- qz(exAB1$A, exAB1$B))
### https://www.netlib.org/lapack/lug/node119.html
(ret <- qz(exAB2$A, exAB2$B))
### https://www.netlib.org/lapack/lug/node94.html
(ret <- qz(exA1$A))
### https://www.netlib.org/lapack/lug/node89.html
(ret <- qz(exA2$A))
# Reordering eigenvalues
select1 <- c(TRUE, FALSE, FALSE, TRUE)
select2 <- c(FALSE, TRUE, TRUE, FALSE)
(ret <- qz(exAB1$A, exAB1$B, select = select1))
(ret <- qz(exAB2$A, exAB2$B, select = select2))
(ret <- qz(exA1$A, select = select1))
(ret <- qz(exA2$A, select = select1))
Run the code above in your browser using DataLab