https://github.com/cran/Hmisc
Raw File
Tip revision: 584ff571fcf522af5799418a1747c2017b43fef0 authored by Charles Dupont on 26 April 2010, 00:00:00 UTC
version 3.9-0
Tip revision: 584ff57
xtfrm.labelled.s
xtfrm.labelled <- function(x) {
  newclass <-  class(x)[class(x) != 'labelled']
  if (length(newclass) == 0) {
    class(x) <- NULL
  } else {
    class(x) <- newclass
  }
  xtfrm(x)
}
back to top