print.svystat.rob <- function(x, ...){ ddigits <- attr(x, "ddigits") m <- cbind(x, sqrt(attr(x, "var"))) colnames(m) <- c(attr(x, "statistic"), "SE") print(round(m, ddigits)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.