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

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

Author: ruckdeschel
Date: 2008-06-27 17:37:06 +0200 (Fri, 27 Jun 2008)
New Revision: 181

Modified:
   branches/distr-2.0/pkg/distr/R/plot-methods_LebDec.R
   pkg/distr/R/plot-methods_LebDec.R
Log:
minor error in plot: LebDecDistr did not plot horizontals in q panel which where sorted out as verticals in p-panel ...

Modified: branches/distr-2.0/pkg/distr/R/plot-methods_LebDec.R
===================================================================
--- branches/distr-2.0/pkg/distr/R/plot-methods_LebDec.R	2008-06-17 09:51:46 UTC (rev 180)
+++ branches/distr-2.0/pkg/distr/R/plot-methods_LebDec.R	2008-06-27 15:37:06 UTC (rev 181)
@@ -1,7 +1,7 @@
 ############################ plot #######################
 
 setMethod("plot", "AffLinUnivarLebDecDistribution",
-    function(x, y = NULL, width = 10, height = 5.5, withSweave = FALSE,
+    function(x, y = NULL, width = 16, height = 9, withSweave = FALSE,
              xlim = NULL, ylim = NULL, ngrid = 1000,
              verticals = TRUE, do.points = TRUE,
              main = FALSE, inner = TRUE, sub = FALSE,
@@ -22,7 +22,7 @@
 })
 
 setMethod("plot", "UnivarLebDecDistribution",
-    function(x, y = NULL, width = 10, height = 5.5, withSweave = FALSE,
+    function(x, y = NULL, width = 16, height = 9, withSweave = FALSE,
              xlim = NULL, ylim = NULL, ngrid = 1000,
              verticals = TRUE, do.points = TRUE,
              main = FALSE, inner = TRUE, sub = FALSE,
@@ -251,6 +251,9 @@
      ### 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))
         ndots <- nrow(gaps(x))

Modified: pkg/distr/R/plot-methods_LebDec.R
===================================================================
--- pkg/distr/R/plot-methods_LebDec.R	2008-06-17 09:51:46 UTC (rev 180)
+++ pkg/distr/R/plot-methods_LebDec.R	2008-06-27 15:37:06 UTC (rev 181)
@@ -251,6 +251,9 @@
      ### 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))
         ndots <- nrow(gaps(x))