npffAH <- function(A,H,P){ K <- gram2edm(P %*% t(P)) Sol <- sum((H * (A - K))^2) return(Sol) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.