[Distr-commits] r203 - branches/distr-2.0/pkg/distr/R pkg/distr/R

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

Author: ruckdeschel
Date: 2008-07-28 11:54:42 +0200 (Mon, 28 Jul 2008)
New Revision: 203

Modified:
   branches/distr-2.0/pkg/distr/R/plot-methods_LebDec.R
   pkg/distr/R/plot-methods_LebDec.R
Log:
fixed a minor bug in plot-methods_LebDec.R


Modified: branches/distr-2.0/pkg/distr/R/plot-methods_LebDec.R
===================================================================
--- branches/distr-2.0/pkg/distr/R/plot-methods_LebDec.R	2008-07-28 08:25:10 UTC (rev 202)
+++ branches/distr-2.0/pkg/distr/R/plot-methods_LebDec.R	2008-07-28 09:54:42 UTC (rev 203)
@@ -248,11 +248,11 @@
      if(is.finite(q(x)(0))) {grid <- c(q(x)(0),grid); pxg <- c(0,pxg)}
      if(is.finite(q(x)(1))) {grid <- c(grid,q(x)(1)); pxg <- c(pxg,1)}
 
-     ### fix constancy regions of p(x)
-     if(isOldVersion(x)) x <- conv2NewVersion(x)
-
-     if(length(pxv))
-         do.call(lines, c(list(x = pxv, y = xv), dots.without.pch))
+#     ### fix constancy regions of p(x)
+#     if(isOldVersion(x)) x <- conv2NewVersion(x)
+#
+#     if(length(pxv))
+#         do.call(lines, c(list(x = pxv, y = xv), dots.without.pch))
      
      if(!is.null(gaps(x))){
         i.not.gap    <- !.isIn(grid,gaps(x))

Modified: pkg/distr/R/plot-methods_LebDec.R
===================================================================
--- pkg/distr/R/plot-methods_LebDec.R	2008-07-28 08:25:10 UTC (rev 202)
+++ pkg/distr/R/plot-methods_LebDec.R	2008-07-28 09:54:42 UTC (rev 203)
@@ -248,11 +248,11 @@
      if(is.finite(q(x)(0))) {grid <- c(q(x)(0),grid); pxg <- c(0,pxg)}
      if(is.finite(q(x)(1))) {grid <- c(grid,q(x)(1)); pxg <- c(pxg,1)}
 
-     ### fix constancy regions of p(x)
-     if(isOldVersion(x)) x <- conv2NewVersion(x)
-
-     if(length(pxv))
-         do.call(lines, c(list(x = pxv, y = xv), dots.without.pch))
+#     ### fix constancy regions of p(x)
+#     if(isOldVersion(x)) x <- conv2NewVersion(x)
+#
+#     if(length(pxv))
+#         do.call(lines, c(list(x = pxv, y = xv), dots.without.pch))
      
      if(!is.null(gaps(x))){
         i.not.gap    <- !.isIn(grid,gaps(x))