Nothing
set.seed(779)
`%perp%` <- function(y,x)
lsfit(x,y, intercept = FALSE)$residuals
x <- 1:10
y <- x + .25 * rnorm(10)
y %perp% x
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.