Nothing
xtable.robustness <-
function(object, ...){
robustness.object <- object
if (class(robustness.object) != "robustness"){
stop("Wrong object class")
}
class(robustness.object) <- "matrix"
if (requireNamespace("xtable", quietly = TRUE)) {
(print(xtable::xtable(robustness.object)))
} else {
stop("xtable library is required for this to function")
}
class(robustness.object) <- "robustness"
}
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.