R/print.svystat.rob.R

In rhte: Robust Horvitz-Thompson Estimation

Defines functions print.svystat.rob

Documented in print.svystat.rob

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))
}

Try the rhte package in your browser