objective.funct <- function(x,L,gammas,bag) {
a.weights <- adjusted.weights(x,gammas,bag)
sum(unlist(Map('*',bag$weights,a.weights)))-L
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.