-------------------------------------------
# Zoo

data(Zoo)
dane <- Zoo
fix <- c(1:12, 14:16)
dane[,fix] <- lapply(dane[,fix] , factor)


-------------------------------------------
# Breast Cancer

data(BreastCancer)
dane <- BreastCancer
fix <- c(2:6)
dane[,fix] <- lapply(dane[,fix], factor, ordered=FALSE)