Représentation graphique d’une loi binômiale

Présentation

On souhaite représenter le diagramme en bâtons d’une loi binomiale de paramètres (n ; p).

Pour cela, en début de script, on ajustera ces valeurs.

En sortie, on obtient le diagramme en bâtons désiré.

Le script

#--------------------- A modifier
n<-20
p<-0.4

x<-0:n

# Création du tableau des densités

tabDensite<-NULL
for (i in x)  {tabDensite<-c(tabDensite,dbinom(i,n,p))}

# Creation des textes


texteLegende<-bquote(p == .(p))

texteTitre<-paste("Loi binomiale", "\n"
                  , "n = ", bquote( .(n)))


# Création du diagramme en bâtons


barplot(rbind(tabDensite),beside=TRUE,las=1,names.arg=x,col="blue",ylim=c(0,0.25)
        ,xlab="k",ylab="P(X = k)",legend.text=texteLegende,main=texteTitre,cex.main=1)

On obtient le graphique suivant :

loi_binomiale_01.png