modif code courbe predict

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