R/print.svystat.rob.R

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))
}
martinSter/rhte documentation built on May 13, 2019, 11:34 a.m.