Nothing
library(minqa)
maxfn <- function(x)
10 - (crossprod(x, seq_along(x)))^2
negmaxfn <- function(x) -maxfn(x)
(ans.mx <- newuoa(rep(pi, 4), negmaxfn, control=list(iprint=1)))
(ans.mxf<-newuoa(rep(pi, 4), negmaxfn, control=list(iprint=1,maxfun=25)))
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.