Nothing
PROJECT <-
function(MM)
{
n <- nrow(MM)
PMM <- MM-(matrix(1, n, 1)%*%apply(MM, 2, sum))/n
return(PMM)
}
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.