Nothing
heqb.SGB.jac <-
function(x,d,u,bound,shape1,index,...){
li <- length(index)
J <- matrix(0, li, length(x))
J[1:li,index] <- diag(rep(1,li))
return(J)
}
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.