[Gsdesign-commits] r263 - pkg/gsDesign/R

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

Author: keaven
Date: 2010-01-24 04:58:59 +0100 (Sun, 24 Jan 2010)
New Revision: 263

Modified:
   pkg/gsDesign/R/gsqplot.R
Log:
Minor plot update

Modified: pkg/gsDesign/R/gsqplot.R
===================================================================
--- pkg/gsDesign/R/gsqplot.R	2010-01-24 03:43:03 UTC (rev 262)
+++ pkg/gsDesign/R/gsqplot.R	2010-01-24 03:58:59 UTC (rev 263)
@@ -94,7 +94,7 @@
 }
 # qplots for z-values and transforms of z-values
 "qplotit" <- function(x, xlim=NULL, ylim=NULL, main=NULL, geom=c("line", "text"), 
-                     dgt=2, lty=c(2,1), col=c(1,1),
+                     dgt=c(2.2), lty=c(2,1), col=c(1,1),
                      lwd=c(1,1), nlabel="TRUE", xlab=NULL, ylab=NULL, fn=function(z,i,x,...){z},
                      ratio=1, delta0=0, delta=1, cex=1, base=FALSE,...)
 {  if (length(lty)==1) lty <- array(lty, 2)
@@ -116,8 +116,8 @@
    }
    z <- fn(z=c(x$upper$bound,x$lower$bound), i=c(1:x$k, 1:x$k), x=x,
                ratio=ratio, delta0=delta0, delta=delta)
-   Ztxt <- as.character(c(round(z[1:(x$k-1)],dgt[1]), round(z[x$k],max(dgt)), 
-                          round(z[(x$k+1):(2*x$k-1)], dgt[2]), round(z[2*x$k],max(dgt))))
+   Ztxt <- as.character(c(round(z[1:(x$k-1)],dgt[2]), round(z[x$k],max(dgt)), 
+                          round(z[(x$k+1):(2*x$k-1)], dgt[1]), round(z[2*x$k],max(dgt))))
    y <- data.frame(
            N=as.numeric(c(x$n.I,x$n.I)), 
            Z=as.numeric(z),