print.values <- function(obj) {
  write.table(format(obj, justify="right"),
            row.names=F, col.names=F, quote=F)
}

use unname(obj) instead
X #print without names
X print.n <- function (obj) {
X   names(obj) <- NULL
X   print(obj)
X }



LEARN THIS: 
http://stackoverflow.com/questions/8448757/how-to-use-a-character-as-attribute-of-a-function