diff --git a/module4/src_R_challenger.Rmd b/module4/src_R_challenger.Rmd
index d6c895687c65fc738cacac2f3d76457d86b71ef6..1343002ae32fc50f519d4792a202bee8bdc0bbc6 100644
--- a/module4/src_R_challenger.Rmd
+++ b/module4/src_R_challenger.Rmd
@@ -61,10 +61,12 @@ estimate the failure probability for such temperature using our model.:
 # shuttle=shuttle[shuttle$r!=0,]
 tempv = seq(from=30, to=90, by = .5)
 rmv <- predict(logistic_reg,list(Temperature=tempv),type="response")
-plot(tempv,rmv,type="l",ylim=c(0,1))
+plot(tempv,rmv,type="l",ylim=c(0,1)) +
 points(data=data, Malfunction/Count ~ Temperature)
 ```
 
+*Modification de la fonction (ajout d'un "+"), sinon bug pour ajouter les points sur la courbe predict.*
+
 This figure is very similar to the Figure 4 of Dalal et al. **I have managed to replicate the Figure 4 of the Dalal *et al.* article.**
 
 # Confidence on the prediction