Nothing
orlm_forboot <- function(data, indices, index=index, ...){
## df.error chosen arbitrary, since it is irrelevant for b.restr
dat <- data[indices,]
bx <- orlm(cov.wt(dat[,-1],wt=dat$wt)$cov, df.error=10, index=index, ...)$b.restr
## intercept
bi <- mean(dat[,2]) - sum(colMeans(dat[,3:ncol(dat)])*bx)
return(c(bi,bx))
}
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.