From noreply at r-forge.r-project.org  Mon Feb 24 01:19:38 2014
From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org)
Date: Mon, 24 Feb 2014 01:19:38 +0100 (CET)
Subject: [Gsdesign-commits] r366 - in pkg/gsDesign: . R
Message-ID: <20140224001939.00CB318678D@r-forge.r-project.org>

Author: keaven
Date: 2014-02-24 01:19:38 +0100 (Mon, 24 Feb 2014)
New Revision: 366

Modified:
   pkg/gsDesign/DESCRIPTION
   pkg/gsDesign/R/gsDesign.R
Log:
Fixed rare convergence issue that results in occasional error message for test.type=3.

Modified: pkg/gsDesign/DESCRIPTION
===================================================================
--- pkg/gsDesign/DESCRIPTION	2014-01-02 17:11:06 UTC (rev 365)
+++ pkg/gsDesign/DESCRIPTION	2014-02-24 00:19:38 UTC (rev 366)
@@ -1,5 +1,5 @@
 Package: gsDesign
-Version: 2.8-8
+Version: 2.8-9
 Title: Group Sequential Design
 Author: Keaven Anderson 
 Maintainer: Keaven Anderson <keaven_anderson at merck.com>

Modified: pkg/gsDesign/R/gsDesign.R
===================================================================
--- pkg/gsDesign/R/gsDesign.R	2014-01-02 17:11:06 UTC (rev 365)
+++ pkg/gsDesign/R/gsDesign.R	2014-02-24 00:19:38 UTC (rev 366)
@@ -511,7 +511,7 @@
         x3 <- gsprob(0,x2$I,x2$a,x2$b)
         gspowr <- x3$powr
         I <- x2$I
-        flag <- abs(gspowr-x$alpha)
+        flag <- max(abs(c(gspowr-x$alpha,falsepos - x3$probhi))) # bug fix here, 20140221, KA
         jj <- jj + 1
     }