var.num <- c(1, 0, 9, 2, 5, 3, 10)                           # vettore numerico

sette.nani <- c("Dotto", "Mammolo", "Pisolo", "Brontolo",    
                "Gongolo", "Eolo", "Cucciolo")               # vettore carattere