Nothing
`fun.fit.gl.v.lma` <-
function (a, b, c, d, data, param)
{
init.sol <- c(a, b, c, d)
optim.result <- optim(init.sol, optim.fun.lm, data = data,
param = param, control = list(maxit = 2e+05))
return(optim.result$par)
}
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.