Nothing
ols.function <-
function(X, y, vcov = FALSE) {
res <- list()
if(vcov) {
res$vcov <- solve(crossprod(X))
res$coeff <- res$vcov%*%crossprod(X,y)
} else {
res$coeff <- try(solve(crossprod(X), crossprod(X,y)), silent = TRUE)
}
res
}
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.