[Distr-commits] r178 - in branches/distr-2.0/pkg/distr: R man

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

Author: stamats
Date: 2008-06-16 11:17:47 +0200 (Mon, 16 Jun 2008)
New Revision: 178

Modified:
   branches/distr-2.0/pkg/distr/R/plot-methods.R
   branches/distr-2.0/pkg/distr/R/plot-methods_LebDec.R
   branches/distr-2.0/pkg/distr/man/plot-methods.Rd
Log:
reduced the default values of width and height

Modified: branches/distr-2.0/pkg/distr/R/plot-methods.R
===================================================================
--- branches/distr-2.0/pkg/distr/R/plot-methods.R	2008-06-06 12:50:21 UTC (rev 177)
+++ branches/distr-2.0/pkg/distr/R/plot-methods.R	2008-06-16 09:17:47 UTC (rev 178)
@@ -1,7 +1,7 @@
 # -------- AbscontDistribution ---------- #
 
 setMethod("plot", "AbscontDistribution",
-   function(x, y = NULL, width = 16, height = 9, withSweave = FALSE,
+   function(x, y = NULL, width = 10, height = 5.5, withSweave = FALSE,
             xlim = NULL, ylim = NULL, ngrid = 1000, verticals = TRUE,
             do.points = TRUE, main = FALSE, inner = TRUE, sub = FALSE, 
             bmar = par("mar")[1], tmar = par("mar")[3], ..., 
@@ -255,7 +255,7 @@
 # -------- DiscreteDistribution -------- #
 
 setMethod("plot", "DiscreteDistribution",
-    function(x, y = NULL, width = 16, height = 9, withSweave = FALSE, 
+    function(x, y = NULL, width = 10, height = 5.5, withSweave = FALSE, 
              xlim = NULL, ylim = NULL, verticals = TRUE, do.points = TRUE, 
              main = FALSE, inner = TRUE, sub = FALSE,
              bmar = par("mar")[1], tmar = par("mar")[3], ..., 

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-06 12:50:21 UTC (rev 177)
+++ branches/distr-2.0/pkg/distr/R/plot-methods_LebDec.R	2008-06-16 09:17:47 UTC (rev 178)
@@ -1,7 +1,7 @@
 ############################ plot #######################
 
 setMethod("plot", "AffLinUnivarLebDecDistribution",
-    function(x, y = NULL, width = 16, height = 9, withSweave = FALSE,
+    function(x, y = NULL, width = 10, height = 5.5, 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 = 16, height = 9, withSweave = FALSE,
+    function(x, y = NULL, width = 10, height = 5.5, withSweave = FALSE,
              xlim = NULL, ylim = NULL, ngrid = 1000,
              verticals = TRUE, do.points = TRUE,
              main = FALSE, inner = TRUE, sub = FALSE,

Modified: branches/distr-2.0/pkg/distr/man/plot-methods.Rd
===================================================================
--- branches/distr-2.0/pkg/distr/man/plot-methods.Rd	2008-06-06 12:50:21 UTC (rev 177)
+++ branches/distr-2.0/pkg/distr/man/plot-methods.Rd	2008-06-16 09:17:47 UTC (rev 178)
@@ -10,7 +10,7 @@
 \title{ Methods for Function plot in Package `distr' }
 \description{plot-methods}
 \usage{plot(x,y, ...)
-\S4method{plot}{AbscontDistribution}(x, y = NULL, width = 16, height = 9,
+\S4method{plot}{AbscontDistribution}(x, y = NULL, width = 10, height = 5.5,
      withSweave = FALSE, xlim = NULL, ylim = NULL, ngrid = 1000,
      verticals = TRUE, do.points = TRUE, main = FALSE, inner = TRUE,
      sub = FALSE, bmar = par("mar")[1], tmar = par("mar")[3], ...,
@@ -18,7 +18,7 @@
      col.points = par("col"), col.vert = par("col"), col.main = par("col.main"),  
      col.inner = par("col.main"), col.sub = par("col.sub"), cex.points = 2.0, 
      pch.u = 21, pch.a = 16)
-\S4method{plot}{DiscreteDistribution}(x, y = NULL, width = 16, height = 9,
+\S4method{plot}{DiscreteDistribution}(x, y = NULL, width = 10, height = 5.5,
      withSweave = FALSE, xlim = NULL, ylim = NULL, verticals = TRUE,
      do.points = TRUE, main = FALSE, inner = TRUE, sub = FALSE, 
      bmar = par("mar")[1], tmar = par("mar")[3], ..., 
@@ -26,16 +26,16 @@
      col.points = par("col"), col.hor = par("col"), col.vert = par("col"), 
      col.main = par("col.main"), col.inner = par("col.main"), 
      col.sub = par("col.sub"),  cex.points = 2.0, pch.u = 21, pch.a = 16)
-\S4method{plot}{AffLinUnivarLebDecDistribution}(x, y = NULL, width = 16, 
-     height = 9, withSweave = FALSE, xlim = NULL, ylim = NULL, ngrid = 1000,
+\S4method{plot}{AffLinUnivarLebDecDistribution}(x, y = NULL, width = 10, 
+     height = 5.5, withSweave = FALSE, xlim = NULL, ylim = NULL, ngrid = 1000,
      verticals = TRUE, do.points = TRUE, main = FALSE, inner = TRUE, sub = FALSE,
      bmar = par("mar")[1], tmar = par("mar")[3], ..., cex.main = par("cex.main"), 
      cex.inner = 1.2, cex.sub = par("cex.sub"), col.points = par("col"),
      col.hor = par("col"), col.vert = par("col"), col.main = par("col.main"), 
      col.inner = par("col.main"), col.sub = par("col.sub"),  cex.points = 2.0,
      pch.u = 21, pch.a = 16)
-\S4method{plot}{UnivarLebDecDistribution}(x, y = NULL, width = 16, 
-     height = 9, withSweave = FALSE, xlim = NULL, ylim = NULL, ngrid = 1000,
+\S4method{plot}{UnivarLebDecDistribution}(x, y = NULL, width = 10, 
+     height = 5.5, withSweave = FALSE, xlim = NULL, ylim = NULL, ngrid = 1000,
      verticals = TRUE, do.points = TRUE, main = FALSE, inner = TRUE, sub = FALSE,
      bmar = par("mar")[1], tmar = par("mar")[3], ..., cex.main = par("cex.main"), 
      cex.inner = 1.2, cex.sub = par("cex.sub"), col.points = par("col"),