[Distr-commits] r265 - branches/distr-2.0/pkg/distrEx/R

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

Author: ruckdeschel
Date: 2008-08-22 15:52:17 +0200 (Fri, 22 Aug 2008)
New Revision: 265

Modified:
   branches/distr-2.0/pkg/distrEx/R/ConvexContamination.R
Log:
discovered wrongly pasted code

Modified: branches/distr-2.0/pkg/distrEx/R/ConvexContamination.R
===================================================================
--- branches/distr-2.0/pkg/distrEx/R/ConvexContamination.R	2008-08-15 09:07:48 UTC (rev 264)
+++ branches/distr-2.0/pkg/distrEx/R/ConvexContamination.R	2008-08-22 13:52:17 UTC (rev 265)
@@ -191,8 +191,6 @@
                       q(e2)(1-TruncQuantile))
         m2 <- max(m21,m22); rm(m21,m22)
 
-        cumprob.l <- pfun(supp)
-        cumprob.u <- pfun(supp, lower.tail = FALSE)
 
         qfun <- function(p, lower.tail = TRUE, log.p = FALSE){}
         body(qfun) <- substitute({ if (log.p) p <- exp(p)