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