Nothing
concavity.matrix <-
function(index.X, X.fit, y, A, A.grad){
return((A.grad[index.X,,] %*% (t(X.fit) - X.fit[index.X,]) - t(A) + A[index.X,]) * y)
}
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.