Nothing
fit.implied.volatility.curve <-
function(x,k)
{
obj = lm(x ~ k + I(k^2) )
a0 = obj$coefficients[[1]]
a1 = obj$coefficients[[2]]
a2 = obj$coefficients[[3]]
summary.obj = summary(obj)
out = list(a0 = a0, a1 = a1, a2 = a2, summary.obj = summary.obj)
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.