R/print.R

print <- function(x,...)UseMethod("print",x)

print.svq <- function(x,...){
  x <- switch(type(x),
              "select one"={
                factor(levels(x)[x],levels=levels(x), labels=labels(x))
              })
}
mlgrm/svyr2 documentation built on May 25, 2019, 10:31 p.m.