Nothing
`ojaMedianEvo` <-
function(X, control=ojaMedianControl(...), ...){
x <- y <- 1
rows <- dim(X)[1]
cols <- dim(X)[2]
solution <- .Call("ojaEvo",data=X, initialSigma=as.numeric(control$sigmaInit), sigmaAdaptation=as.numeric(control$sigmaAda), adaptationFactor=control$adaFactor, iterations=as.numeric(control$iter),
useAllSubsets=control$useAllSubsets, numberOfSubsetsUsed=as.numeric(control$nSubsetsUsed), sigmaLog10Decrease=as.numeric(control$sigmaLog10Dec),
storeSubdeterminants=control$storeSubDet);
output <- solution$best
output
}
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.