Nothing
# example1b.R -- version 2010-12-27
penalty <- function(param, data) {
y <- data$model(param, data$tm)
aux <- abs(y - abs(y))
sum(aux) * data$ww
}
OF <- function(param, data) {
y <- data$model(param, data$tm)
aux <- y - data$yM
res <- max(abs(aux))
# compute the penalty
aux <- y - abs(y) # ... aux == zero for nonnegative y
aux <- -sum(aux) * data$ww
res + aux
}
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.