[Distr-commits] r305 - in pkg/distrMod: R chm

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

Author: ruckdeschel
Date: 2008-10-11 01:18:47 +0200 (Sat, 11 Oct 2008)
New Revision: 305

Modified:
   pkg/distrMod/R/AllPlot.R
   pkg/distrMod/chm/00Index.html
Log:
small changes in AllPlot.R in distrMod

Modified: pkg/distrMod/R/AllPlot.R
===================================================================
--- pkg/distrMod/R/AllPlot.R	2008-10-10 20:32:05 UTC (rev 304)
+++ pkg/distrMod/R/AllPlot.R	2008-10-10 23:18:47 UTC (rev 305)
@@ -12,6 +12,13 @@
         dots <- match.call(call = sys.call(sys.parent(1)), 
                        expand.dots = FALSE)$"..."
 
+        if(!is.null(dots[["lty"]]))  dots["lty"] <- NULL
+        if(!is.null(dots[["type"]])) dots["type"] <- NULL
+        if(!is.null(dots[["main"]])) dots["main"] <- NULL
+        if(!is.null(dots[["sub"]]))  dots["sub"] <- NULL
+        if(!is.null(dots[["xlab"]])) dots["xlab"] <- NULL
+        if(!is.null(dots[["ylab"]])) dots["ylab"] <- NULL
+
         e1 <- x at distribution
         if(!is(e1, "UnivariateDistribution")) stop("not yet implemented")
 
@@ -36,11 +43,6 @@
                 lty <- "dotted"
             }
         }
-
-        dots["lty"]  <- NULL
-        dots["type"] <- NULL
-        dots["xlab"] <- NULL
-        dots["ylab"] <- NULL
         
         dims <- length(x at param)
         L2deriv <- as(diag(dims) %*% x at L2deriv, "EuclRandVariable")
@@ -53,7 +55,7 @@
         ncols <- ceiling(dims/nrows)
         par(mfrow = c(nrows, ncols))
 
-        if(is.null(dots[["cex.main"]])) dots[["cex.main"]] <- 0.8
+        if(is.null(dots[["cex.main"]])) dots["cex.main"] <- 0.8
                 
         for(i in 1:dims){
             do.call(plot, args=c(list(x=x.vec, y=sapply(x.vec, L2deriv at Map[[i]]), 
@@ -63,7 +65,8 @@
                                  dots))
             if(is(e1, "DiscreteDistribution")){
                 x.vec1 <- seq(from = min(x.vec), to = max(x.vec), length = 1000)
-                lines(x.vec1, sapply(x.vec1, L2deriv at Map[[i]]), lty = "dotted")
+                do.call(lines, args=c(list(x.vec1, sapply(x.vec1, L2deriv at Map[[i]]), 
+                              lty = "dotted"),dots))
             }
             if(is.null(x at param@nuisance))
                 do.call(title, args = c(list(paste("Component", i, "of L_2 derivative\nof", name(x)[1], 

Modified: pkg/distrMod/chm/00Index.html
===================================================================
--- pkg/distrMod/chm/00Index.html	2008-10-10 20:32:05 UTC (rev 304)
+++ pkg/distrMod/chm/00Index.html	2008-10-10 23:18:47 UTC (rev 305)
@@ -10,7 +10,7 @@
 <param name="keyword" value=".. contents">
 </object>
 
-<h2>Help pages for package &lsquo;distrMod&rsquo; version 2.0</h2>
+<h2>Help pages for package &lsquo;distrMod&rsquo; version 2.0.1</h2>
 
 <p align="center">
 <a href="# "> </a>