[Distr-commits] r354 - pkg/distr/R

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

Author: ruckdeschel
Date: 2008-11-25 10:23:00 +0100 (Tue, 25 Nov 2008)
New Revision: 354

Modified:
   pkg/distr/R/bAcDcLcDistribution.R
Log:
fixed redundant code in bAcDcLcDistribution.R

* checking R code for possible problems ... NOTE
*,AcDcLcDistribution-AcDcLcDistribution : dnew: no visible global
function definition for 'dnew0'
*,AcDcLcDistribution-AcDcLcDistribution : dnew: no visible binding for
global variable 'lf0'
*,AcDcLcDistribution-AcDcLcDistribution : dnew: no visible binding for
global variable 'f0'


Modified: pkg/distr/R/bAcDcLcDistribution.R
===================================================================
--- pkg/distr/R/bAcDcLcDistribution.R	2008-11-25 07:31:19 UTC (rev 353)
+++ pkg/distr/R/bAcDcLcDistribution.R	2008-11-25 09:23:00 UTC (rev 354)
@@ -53,13 +53,6 @@
                          e12pp, e12mm, e12pm, e12mp,
                          as(Dirac(0),"UnivarLebDecDistribution"))
          
-         dnew <- function(x, log = FALSE, ...){
-               d0 <- dnew0(x, log = log, ...)
-               i0 <- .isEqual(x,0)
-               if(!any(i0)) return(d0)
-               if(log) d0[i0] <- lf0 else d0[i0] <- f0
-               return(d0)
-            }
          if(getdistrOption("simplifyD"))
             obj <- simplifyD(obj)