Nothing
solnp_eq <-
function(x, ...){
res<-do.call(fobj_global, list(x, ...));
n_fun_eval <<- n_fun_eval + 1;
res_eq<-res[[2]][1:neq_global];
return(res_eq)
}
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.