[Gsdesign-commits] r360 - pkg/gsDesign/man

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

Author: keaven
Date: 2013-09-13 11:39:06 +0200 (Fri, 13 Sep 2013)
New Revision: 360

Modified:
   pkg/gsDesign/man/gsBoundSummary.Rd
   pkg/gsDesign/man/nSurvival.Rd
   pkg/gsDesign/man/ssrCP.Rd
Log:
Minor help file format fixes

Modified: pkg/gsDesign/man/gsBoundSummary.Rd
===================================================================
--- pkg/gsDesign/man/gsBoundSummary.Rd	2013-09-11 02:10:05 UTC (rev 359)
+++ pkg/gsDesign/man/gsBoundSummary.Rd	2013-09-13 09:39:06 UTC (rev 360)
@@ -28,11 +28,12 @@
     \method{print}{gsDesign}(x,...)
     \method{summary}{gsDesign}(object, information=FALSE, ...)
     gsBoundSummary(x, deltaname=NULL, logdelta=FALSE, 
-                  Nname=NULL, digits=4, ddigits=2, tdigits=0, timename="Month",
-                  prior=normalGrid(mu=x$delta/2, sigma=10/sqrt(x$n.fix)), POS=FALSE, ratio=NULL,
-                  exclude=c("B-value","Spending","CP","CP H1","PP"), r=18, ...)
+      Nname=NULL, digits=4, ddigits=2, tdigits=0, timename="Month",
+      prior=normalGrid(mu=x$delta/2, sigma=10/sqrt(x$n.fix)), POS=FALSE, ratio=NULL,
+      exclude=c("B-value","Spending","CP","CP H1","PP"), r=18, ...)
     \method{print}{gsBoundSummary}(x,row.names=FALSE,digits=4,...)
-    xprint(x,include.rownames=FALSE,hline.after=c(-1,which(x$Value==x[1,]$Value)-1,nrow(x)), ...)
+    xprint(x,include.rownames=FALSE,
+      hline.after=c(-1,which(x$Value==x[1,]$Value)-1,nrow(x)), ...)
     gsBValue(z, i, x, ylab="B-value", ...)
     gsDelta(z, i, x, ylab=NULL, ...)
     gsHR(z, i, x, ratio=1, ylab="Estimated hazard ratio", ...)

Modified: pkg/gsDesign/man/nSurvival.Rd
===================================================================
--- pkg/gsDesign/man/nSurvival.Rd	2013-09-11 02:10:05 UTC (rev 359)
+++ pkg/gsDesign/man/nSurvival.Rd	2013-09-13 09:39:06 UTC (rev 360)
@@ -142,7 +142,8 @@
 
 #  group sequential translation with default bounds
 #  note that delta1 is log hazard ratio; used later in gsBoundSummary summary
-	x<-gsDesign(k = 5, test.type = 2, n.fix=ss$nEvents, nFixSurv=ss$n, delta1=log(ss$lambda2/ss$lambda1))
+	x<-gsDesign(k = 5, test.type = 2, n.fix=ss$nEvents, nFixSurv=ss$n, 
+      delta1=log(ss$lambda2/ss$lambda1))
 # boundary plot
 	plot(x)
 # effect size plot

Modified: pkg/gsDesign/man/ssrCP.Rd
===================================================================
--- pkg/gsDesign/man/ssrCP.Rd	2013-09-11 02:10:05 UTC (rev 359)
+++ pkg/gsDesign/man/ssrCP.Rd	2013-09-13 09:39:06 UTC (rev 360)
@@ -19,8 +19,10 @@
 While the returned data frame should make general plotting easy, the function \code{plot.ssrCP()} prints a plot of study sample size by stage 1 outcome with multiple x-axis labels for stage 1 z-value, conditional power, and stage 1 effect size relative to the effect size for which the underlying group sequential design was powered.
 }
 \usage{
-ssrCP(z1, theta=NULL, maxinc=2, overrun=0, beta = x$beta, cpadj=c(.5,1-beta), x=gsDesign(k=2, timing=.5, beta=beta), z2=z2NC,...)
-\method{plot}{ssrCP}(x, z1ticks=NULL, mar=c(7, 4, 4, 4)+.1, ylab="Adapted sample size", xlaboffset=-.2, lty=1, col=1,...)
+ssrCP(z1, theta=NULL, maxinc=2, overrun=0, beta = x$beta, cpadj=c(.5,1-beta), 
+      x=gsDesign(k=2, timing=.5, beta=beta), z2=z2NC,...)
+\method{plot}{ssrCP}(x, z1ticks=NULL, mar=c(7, 4, 4, 4)+.1, 
+      ylab="Adapted sample size", xlaboffset=-.2, lty=1, col=1,...)
 Power.ssrCP(x, theta=NULL, delta=NULL, r=18)            
 condPower(z1, n2, z2=z2NC, theta=NULL, x=gsDesign(k=2, timing=.5, beta=beta), ...)
 z2NC(z1,x,...)
@@ -188,7 +190,8 @@
        data.frame(cbind(y1,"CP effect size"="Obs. at IA")),
        data.frame(cbind(y2,"CP effect size"="Alt. hypothesis")))
 # plot expected sample size by design and effect size
-ggplot(data=y3,aes(x=delta,y=en,col=CP.effect.size))+geom_line() + xlab(expression(delta)) + ylab("Expected sample size")
+ggplot(data=y3,aes(x=delta,y=en,col=CP.effect.size))+geom_line() + 
+        xlab(expression(delta)) + ylab("Expected sample size")
 # plot power by design and effect size
 ggplot(data=y3,aes(x=delta,y=Power,col=CP.effect.size))+geom_line() + xlab(expression(delta))