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 :
