genre=c(rep("H",2),rep("F",3),"H",rep("F",3), rep("H",2),"F","H",rep("F",2),
        rep("H",4),rep("F",5),"H",rep("F",2),"H",rep("F",3),"H",rep("F",2))
nehicule= c(rep("V",2),rep("NV",7),"V","NV","V",rep("NV",6),"V","NV","V","NV",
            "V","NV","V",rep("NV",2),"V",rep("NV",3),"V","NV","V")
length(genre)
length(vehicule)