factors <-
function(x){
	levels(x)[x]
}