# Pas de graphe trace (fonctionnement par defaut)
pop<-sample(LETTERS[1:3],60,replace=TRUE)
prop<-sample(c(0,1),60,replace=TRUE)
tab.cont<-table(pop,prop)
prop.theo<-c(0.2,0.5,0.7)
eff.theo(tab.cont,p.theo=prop.theo)
# Avec une representation graphique du tableau des effectifs theoriques
eff.theo(tab.cont,p.theo=prop.theo,graphe=TRUE)
Run the code above in your browser using DataLab