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)) }) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.