[Gsdesign-commits] r372 - in pkg/gsDesign: . R
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Mon Jun 23 20:57:22 CEST 2014
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="")
}
More information about the Gsdesign-commits
mailing list