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

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

Author: keaven
Date: 2014-06-08 13:09:29 +0200 (Sun, 08 Jun 2014)
New Revision: 371

Modified:
   pkg/gsDesign/R/gsMethods.R
Log:
Minor fix to summary.gsDesign rounding up sample size when arm sizes are equal.

Modified: pkg/gsDesign/R/gsMethods.R
===================================================================
--- pkg/gsDesign/R/gsMethods.R	2014-05-29 19:50:07 UTC (rev 370)
+++ pkg/gsDesign/R/gsMethods.R	2014-06-08 11:09:29 UTC (rev 371)
@@ -104,7 +104,8 @@
               " and ", ceiling(object$n.I[object$k]), " events required, ", sep="")
   }else if ("gsSurv" %in% class(object)){
       out <- paste(out, "time-to-event outcome with sample size ", 
-                   ceiling(object$eNC+object$eNE)[object$k], 
+                   ifelse(object$ratio==1,2*ceiling(object$eNE)[object$k,1],ceiling(object$eNE+object$eNC)[object$k,1]),
+                   #ceiling(object$eNC+object$eNE)[object$k], 
                    " and ", ceiling(object$n.I[object$k]), " events required, ", sep="")
   }else if(information){out <- paste(out," total information ",round(object$n.I[object$k],2),", ",sep="")
   }else out <- paste(out, "sample size ", ceiling(object$n.I[object$k]), ", ",sep="")