Nothing
fun.model.lm.optim <-
function (value, x, y, param)
{
len <- length(value)
gld.val <- fun.mean.convert(c(0, value[(len - 2):len]), param)
resid <- y - x %*% value[-c((len - 2):len)]
resid <- resid - mean(resid)
r <- sum(log(dgl(resid, gld.val, param = param))) * -1
return(r)
}
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.