[Distr-commits] r1152 - branches/distr-2.7/pkg/distrEx/demo

[noreply at r-forge.r-project.org]

Author: ruckdeschel
Date: 2018-07-08 13:42:15 +0200 (Sun, 08 Jul 2018)
New Revision: 1152

Modified:
   branches/distr-2.7/pkg/distrEx/demo/Prognose.R
Log:
[branches: distrEx]: began with major update to version 2.7 / replace calls to q(distr) with q.l(distr) in demos

Modified: branches/distr-2.7/pkg/distrEx/demo/Prognose.R
===================================================================
--- branches/distr-2.7/pkg/distrEx/demo/Prognose.R	2018-07-08 11:41:18 UTC (rev 1151)
+++ branches/distr-2.7/pkg/distrEx/demo/Prognose.R	2018-07-08 11:42:15 UTC (rev 1152)
@@ -30,8 +30,8 @@
 
 ## posterior modus
 post.mod <- function(cond, e1) {
-    optimize(f = d(e1), interval = c(q(e1)(1e-3, cond), 
-                        q(e1)(1e-3, cond, lower.tail = FALSE)), 
+    optimize(f = d(e1), interval = c(q.l(e1)(1e-3, cond),
+                        q.l(e1)(1e-3, cond, lower.tail = FALSE)),
         tol = .Machine$double.eps^0.25, maximum = TRUE, cond = cond)$maximum
 }