Nothing
deflation <- function(X, y, na.rm = TRUE, left = TRUE) {
# Computation of the residual matrix R
# Computation of the vector p.
if (left) {
p <- pm(t(X), y, na.rm = na.rm) / as.vector(crossprod(y))
R <- X - tcrossprod(y, p)
} else {
p <- pm(X, y, na.rm = na.rm) / as.vector(crossprod(y))
R <- X - tcrossprod(p, y)
}
return(list(p = p, R = R))
}
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.