diff --git a/src/R/challenger_R_org_Windows_64bits.org b/src/R/challenger_R_org_Windows_64bits.org index 60f3057abea78297ef83f0b815c0b31acced9eb0..eba1a1839a349b83a637f6cccb559f4629462f13 100644 --- a/src/R/challenger_R_org_Windows_64bits.org +++ b/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.