Nothing
qap <- function(A, B, method = NULL, ...) {
if(is.null(method)) method <- "SA"
methods <- c("SA")
method <- methods[pmatch(tolower(method), tolower(methods))]
if(is.na(method)) stop("Unknown method. Available methods are: ",
paste(methods, collapse = ", "))
if(method == "SA") qapSA(A, B, ...)
else stop("Unknown method. Available methods are: ",
paste(methods, collapse = ", "))
}
qap.obj <- function(A, B, o) {
sum(diag(A%*%B[o,o]))
}
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.