Nothing
Beta.NA <-
function(y,X){
des=X[!is.na(y),]
y1=y[!is.na(y)]
B <- solve(t(des)%*%des)%*%t(des)%*%y1
B
}
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.