sample_function2 <-
function(param_vec,maxwaittime=0) #objective function to be minimized
{
r <- max(1e-320,sqrt((param_vec[1]*4)^2+(param_vec[2]*4)^2))
obj=-5 * sin(r)/r
if (maxwaittime>0) #function to be run on slaves, with random delay
Sys.sleep(maxwaittime)
return(obj)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.