[Robast-commits] r195 - pkg/RobAStBase/R

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

Author: stamats
Date: 2008-10-31 11:18:14 +0100 (Fri, 31 Oct 2008)
New Revision: 195

Modified:
   pkg/RobAStBase/R/infoPlot.R
Log:
changes to legend positions

Modified: pkg/RobAStBase/R/infoPlot.R
===================================================================
--- pkg/RobAStBase/R/infoPlot.R	2008-10-31 10:06:52 UTC (rev 194)
+++ pkg/RobAStBase/R/infoPlot.R	2008-10-31 10:18:14 UTC (rev 195)
@@ -166,7 +166,7 @@
                  ylab = "absolute information"), dotsP))
             do.call(lines, args=c(list(x.vec, absInfo, type = plty, lty = lty), 
                     dotsL))
-            legend(max(x.vec), 0, xjust = 1, yjust = 0,
+            legend("top",
                    legend = c("class. opt. IC", objectc), 
                    lty = c(lty,"dashed"), col = c(colI, col), 
                    lwd=c(lwdI, lwd), cex = 0.75)
@@ -205,7 +205,7 @@
                     yc.vec <- sapply(x.vec, classIC.i.5 at Map[[i]])^2/absInfoClass
                     do.call(lines, args=c(list(x.vec, yc.vec, type = plty, 
                           lty = "dashed"), dotsL))
-                    legend(max(x.vec), 1.1,  xjust = 1, 
+                    legend("topright",
                            legend = c("class. opt. IC", objectc), lty = c(lty,"dashed"), 
                                col = c(colI, col), lwd=c(lwdI, lwd),
                                cex = 0.6)