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

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

Author: keaven
Date: 2010-06-01 15:52:54 +0200 (Tue, 01 Jun 2010)
New Revision: 266

Modified:
   pkg/gsDesign/R/gsMethods.R
Log:
print.nSurvival updated to print median censoring time correctly

Modified: pkg/gsDesign/R/gsMethods.R
===================================================================
--- pkg/gsDesign/R/gsMethods.R	2010-05-25 10:14:12 UTC (rev 265)
+++ pkg/gsDesign/R/gsMethods.R	2010-06-01 13:52:54 UTC (rev 266)
@@ -257,7 +257,7 @@
 	}
 	cat("Control median:      log(2)/lambda1=", round(log(2) / x$lambda1,1), "\n", sep="")
 	cat("Experimental median: log(2)/lambda2=", round(log(2) / x$lambda2,1), "\n", sep="")
-	if (x$eta > 0){
+	if (x$eta == 0){
 		cat("Censoring only at study end (eta=0)\n")
 	}else{
 		cat("Censoring median:        log(2)/eta=", round(log(2) / x$eta, 1), "\n", sep="")