Nothing
Vbi <-
function(D, Z_i, R){
D - (D %*% t(Z_i)) %*% solve(Z_i %*% D %*% t(Z_i) + R) %*% t(D %*% t(Z_i))
}
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.