Replace challenger_R_org_Windows_64bits.org

src/R/challenger_R_org_Windows_64bits.org

@@ -378,7 +378,8 @@ logistic_reg$family$linkinv(pred_link$fit)
 #+end_src
 
 #+RESULTS:
-: Fehler: Objekt 'logistic_reg' nicht gefunden
+:        1 
+: 0.834373
 
 I recover 0.834 for the Estimated Failure probability at 30°. But now, going through the /linkinv/ function, we can use /se.fit/:
 #+begin_src R :results output :session *R* :exports both
@@ -387,8 +388,8 @@ logistic_reg$family$linkinv(c(pred_link$fit-critval*pred_link$se.fit, pred_link$
 #+end_src
 
 #+RESULTS:
-: 
-: Fehler: Objekt 'logistic_reg' nicht gefunden
+:         1         1 
+: 0.1630612 0.9923814
 
 The 95% confidence interval for our estimation is thus [0.163,0.992]. This
 is what ~ggplot2~ just plotted me. This seems coherent.