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