Nothing
reorganize.lm <- function(fit, map){
score <- fit$score
para <- fit$coefficients
vcov <- fit$vcov
sigma2 <- para[map$the[1]]
para <- para[map$the[-1]]
vcov <- vcov[map$the[-1], map$the[-1]]
rownames(vcov) <- names(para)
colnames(vcov) <- names(para)
fit <- list(coefficients = para, vcov = vcov, sigma2 = sigma2, score = score)
fit
}
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.