Nothing
## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)
## ----echo = FALSE, message = FALSE--------------------------------------------
require(optimsimplex)
## ----eval=FALSE---------------------------------------------------------------
# myfunction <- function(x, this){
# ...
# return(list(f=f,this=this))
# }
## -----------------------------------------------------------------------------
coords <- matrix(c(0,1,0,0,0,1),ncol=2)
tmp <- optimsimplex(coords=coords)
s1 <- tmp$newobj
s1
optimsimplex.getallx(s1)
optimsimplex.getn(s1)
optimsimplex.getnbve(s1)
## -----------------------------------------------------------------------------
rosenbrock <- function(x){
y <- 100*(x[2]-x[1]^2)^2+(1-x[1])^2
}
mycostf <- function(x, this){
y <- rosenbrock(x)
this$nb <- this$nb+1
return(list(f=y,this=this))
}
mystuff <- list(nb=0)
tmp <- optimsimplex(x0=c(-1.2,1.0), fun=mycostf, method='randbounds',
boundsmin=c(-5.0,-5.0), boundsmax=c(5.0,5.0), nbve=5,
data=mystuff)
tmp$newobj
tmp$data
cat(sprintf("Function evaluations: %d\n",tmp$data$nb))
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.