1xtfrm.labelled <- function(x) {
2  newclass <-  class(x)[class(x) != 'labelled']
3  if (length(newclass) == 0) {
4    class(x) <- NULL
5  } else {
6    class(x) <- newclass
7  }
8  xtfrm(x)
9}
10