Type_peau<-as.factor(c("Mixte","Normale","Sèche","Mixte","Normale","Mixte")) Type_peau unclass(Type_peau)