[Gsdesign-commits] r372 - in pkg/gsDesign: . R

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

Author: keaven
Date: 2014-06-23 20:57:22 +0200 (Mon, 23 Jun 2014)
New Revision: 372

Modified:
   pkg/gsDesign/DESCRIPTION
   pkg/gsDesign/R/gsMethods.R
Log:
Added test.R to do unit tests. Fixed gsBoundSummary to work with gsSurv with stratified populations.

Modified: pkg/gsDesign/DESCRIPTION
===================================================================
--- pkg/gsDesign/DESCRIPTION	2014-06-08 11:09:29 UTC (rev 371)
+++ pkg/gsDesign/DESCRIPTION	2014-06-23 18:57:22 UTC (rev 372)
@@ -1,5 +1,5 @@
 Package: gsDesign
-Version: 2.9
+Version: 2.9-1
 Title: Group Sequential Design
 Author: Keaven Anderson 
 Maintainer: Keaven Anderson <keaven_anderson at merck.com>

Modified: pkg/gsDesign/R/gsMethods.R
===================================================================
--- pkg/gsDesign/R/gsMethods.R	2014-06-08 11:09:29 UTC (rev 371)
+++ pkg/gsDesign/R/gsMethods.R	2014-06-23 18:57:22 UTC (rev 372)
@@ -446,8 +446,8 @@
     nstat <- 2
   }else{
     nstat <- 4
-    statframe[statframe$Value==statframe$Value[3],]$Analysis <- paste("Events:",ceiling(x$eDC+x$eDE))
-    if (x$ratio==1) N <- 2*ceiling(x$eNE) else N <- ceiling(x$eNE+x$eNC)
+    statframe[statframe$Value==statframe$Value[3],]$Analysis <- paste("Events:",ceiling(rowSums(x$eDC+x$eDE)))
+    if (x$ratio==1) N <- 2*ceiling(rowSums(x$eNE)) else N <- ceiling(rowSums(x$eNE+x$eNC))
     Time <- round(x$T,tdigits)
     statframe[statframe$Value==statframe$Value[4],]$Analysis <- paste(timename,": ",as.character(Time),sep="")
   }