Données

Les données sont recopiées depuis le texte de l’exercice 2, 2\(^e\) partie, je ne les affiche pas.

Je crée un dataframe (x,y) à partir du vecteur précédent.

df <- as.data.frame(data)
n <- length(rownames(df))
df <- cbind(x = seq(1,n), df)
colnames(df) <- c("x", "y")

Affichages

C’est un peu compliqué d’obtenir exactement les mêmes largeurs de bins que dans le modèle.