Nothing
vcov.repolr <-
function(object, robust.var = TRUE, ...){
if(robust.var == FALSE){
vcov.mat <- object$naive.var
} else {
vcov.mat <- object$robust.var
}
vcov.mat
}
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.