Nothing
obj_fun <- function(x,aux) {
FUN <- match.fun(aux$FUN)
theta <- c(0,x)
CC <- matrix(rep(theta,aux$n),nrow=aux$n)
CC <- FUN(CC-t(CC))
y <- sum((aux$R-CC)^2)
return(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.