From noreply at r-forge.r-project.org  Sat Sep 15 09:41:52 2018
From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org)
Date: Sat, 15 Sep 2018 09:41:52 +0200 (CEST)
Subject: [Distr-commits] r1290 - in branches/distr-2.8/pkg/distr: R inst
Message-ID: <20180915074152.EA41D18A2DE@r-forge.r-project.org>

Author: ruckdeschel
Date: 2018-09-15 09:41:52 +0200 (Sat, 15 Sep 2018)
New Revision: 1290

Modified:
   branches/distr-2.8/pkg/distr/R/AllInitialize.R
   branches/distr-2.8/pkg/distr/inst/NEWS
Log:
[distr] branch 2.8: detected that the initialize method of Weibull lacked a .withArith argument to capture the scale structure

Modified: branches/distr-2.8/pkg/distr/R/AllInitialize.R
===================================================================
--- branches/distr-2.8/pkg/distr/R/AllInitialize.R	2018-08-18 23:23:21 UTC (rev 1289)
+++ branches/distr-2.8/pkg/distr/R/AllInitialize.R	2018-09-15 07:41:52 UTC (rev 1290)
@@ -1034,7 +1034,7 @@
 
 ## Class: Weibull distribution
 setMethod("initialize", "Weibull",
-          function(.Object, shape = 1, scale = 1) {
+          function(.Object, shape = 1, scale = 1, .withArith = FALSE) {
             .Object at img <- new("Reals")
             .Object at param <- new("WeibullParameter", 
                                   shape = shape, scale = scale
@@ -1062,7 +1062,7 @@
                                       lower.tail = lower.tail, log.p = log.p) },
                              list(shapeSub = shape, scaleSub = scale)
                                          )
-            .Object at .withArith <- FALSE
+            .Object at .withArith <- .withArith
             .Object
           })
 

Modified: branches/distr-2.8/pkg/distr/inst/NEWS
===================================================================
--- branches/distr-2.8/pkg/distr/inst/NEWS	2018-08-18 23:23:21 UTC (rev 1289)
+++ branches/distr-2.8/pkg/distr/inst/NEWS	2018-09-15 07:41:52 UTC (rev 1290)
@@ -38,6 +38,8 @@
 bug fixes
 + fixed a (newly introduced) bug in exp() for DiscreteDistribution -- forgot to return obj ...
 + Bernhard discovered a bug in devNew() -- it opened new devices even if option("newDevice"==FALSE)  
++ detected that the initialize method of Weibull lacked a .withArith argument to capture the scale structure
+
 ##############
 v 2.7
 ##############