Nothing
Ebi <-
function(D, Z_i, R, y, X_i, B){
(D %*% t(Z_i)) %*% solve(Z_i %*% D %*% t(Z_i) + R) %*% (y - X_i %*% 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.