#-------------------------------------------------
# UE7contingence.R, cours VII
# -------------------------------------------------


# I. On a testé 3 engrais (A,B,C) sur la floraison des Chrysanthèmes. Au cours des
# test sur 100 plantes, on a observé  des mortalités (non dues aux engrais),
# ce qui a pour conséquence que les résultats n'ont pas un m^me nombbre d'essais
# On a noté le nombre de pieds fleuris et les non fleuris
# Y-a-t'il un lien entre les engrais et la floraison des Chrysanthèmes ?
#----------------------------------------------------------------------
# Récupération des données
flor <-as.matrix(read.table("floraison.txt", header = F, sep="\t"))
colnames(flor) <- c("Fleuri", "NonFleuri")
rownames(flor) <- c("EA","EB","EC")
flor<-as.table(flor)
plot(flor)
chisq.test(flor)

# II. Puisque nous n'avons aucune limitation avec le G-test, faites une comparaison
# avec celui-ci ( script = G-test.R)


# III. On a observé quelques personnes. 5 ayant les cheveux blonds
# avaient les yeux clairs et une les yeux foncés. Aucune personne brune avait
# les yeux clairs mais 13 avaient les yeux foncés.
# Y-a-t'il un lien entre la coloration de la chevelure et celle des yeux ?
# Proposez un test et justifiez... Que conclure ?

#----------------------------------------------------------