#costruisco un vettore carattere
Eta <- c("giovani", "adulti", "anziani", "anziani", "giovani")

# eta.classi diventa il fattore eta.classi
Eta <- factor(Eta)

#costruisco un vettore numerico
fattore1 <- c(1, 4, 3, 3, 2)

# x diventa un fattore
fattore1 <- factor(fattore1)

#assegno una etichetta ai livelli del fattore:
levels(fattore1) <- c("A","C","D","B")

# a che classe appartiene eta.classi?
class(Eta)          

class(fattore1)

# cosa c'è in eta.classi?
Eta

# quali sono i livelli (modalità) di eta.classi
levels(Eta)  

#non posso calcolare la media di un fattore
mean(Eta)

# assegno un ordine ai livelli di eta.classi
Eta <- ordered(Eta, levels = c("giovani", "adulti", "anziani"))
levels(Eta)
class(Eta)
str(Eta)