Nothing
testgv <- function(A,B,z) {
V <- z$vectors
if( is.null(z$alpha) ) {
ret <- A %*% V - B %*% V %*% diag(z$values)
} else {
ret <- A %*% V %*% diag(z$beta) - B %*% V %*% diag(z$alpha)
}
tol <- 100 * sqrt(.Machine$double.eps)
all(abs(ret)<=tol)
}
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.