Nothing
orlm_forboot.fixed <- function (data, indices, ...)
{
e <- data$e[indices]
dat <- cbind(data$fit+e, data[,2:(ncol(data)-2)])
aus <- orlm(lm(dat), ...)$b.restr
return(aus)
}
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.