From noreply at r-forge.r-project.org  Sun Jun  8 13:09:29 2014
From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org)
Date: Sun,  8 Jun 2014 13:09:29 +0200 (CEST)
Subject: [Gsdesign-commits] r371 - pkg/gsDesign/R
Message-ID: <20140608110929.BA03E1833E1@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="")


From noreply at r-forge.r-project.org  Mon Jun 23 20:57:22 2014
From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org)
Date: Mon, 23 Jun 2014 20:57:22 +0200 (CEST)
Subject: [Gsdesign-commits] r372 - in pkg/gsDesign: . R
Message-ID: <20140623185723.0C42D186931@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="")
   }