Nothing
# Reordering eigenvalues
library(QZ, quiet = TRUE)
select <- c(TRUE, FALSE, FALSE, TRUE)
(ret <- qz(exAB1$A, exAB1$B, select = select))
### https://www.nag.com/lapack-ex/node119.html
select <- c(TRUE, FALSE, FALSE, TRUE)
(ret <- qz(exAB2$A, exAB2$B, select = select))
(ret <- ordqz(exAB2$A, exAB2$B, keyword = "ref"))
(ret <- ordqz(exAB2$A, exAB2$B, keyword = "cef"))
select <- c(TRUE, FALSE, FALSE, TRUE)
(ret <- qz(exA1$A, select = select))
### https://www.nag.com/lapack-ex/node89.html
select <- c(TRUE, FALSE, FALSE, TRUE)
(ret <- qz(exA2$A, select = select))
(ret <- ordqz(exA2$A, keyword = "lhp"))
(ret <- ordqz(exA2$A, keyword = "rhp"))
(ret <- ordqz(exA2$A, keyword = "ref"))
(ret <- ordqz(exA2$A, keyword = "cef"))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.