Nothing
.weighted.sum = function(x, w, ..., na.rm=FALSE) {
if(isTRUE(na.rm)) {
ind = !is.na(x)
x = x[ind]
w = w[ind]
}
return(sum(x*w))
}
.globalFitness = function(fitness, opt) {
# must receive fitness and optionally weight argument
aggFn = match.fun(opt$aggFn)
out = apply(fitness, 1, aggFn, w=opt$weights)
return(out)
}
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.