[Gsdesign-commits] r343 - pkg/gsDesign/man

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

Author: keaven
Date: 2013-02-20 18:18:27 +0100 (Wed, 20 Feb 2013)
New Revision: 343

Modified:
   pkg/gsDesign/man/binomial.Rd
Log:
Eliminated as.real in documentation example (binomial.Rd)

Modified: pkg/gsDesign/man/binomial.Rd
===================================================================
--- pkg/gsDesign/man/binomial.Rd	2013-02-10 21:37:11 UTC (rev 342)
+++ pkg/gsDesign/man/binomial.Rd	2013-02-20 17:18:27 UTC (rev 343)
@@ -160,9 +160,9 @@
 # Perform 50k simulations to test validity of the above
 # asymptotic p-values 
 # (you may want to perform more to reduce standard error of estimate)
-sum(as.real(x0) <= 
+sum(as.double(x0) <= 
     simBinomial(p1=.078, p2=.078, n1=500, n2=500, nsim=10000)) / 10000
-sum(as.real(x0) <= 
+sum(as.double(x0) <= 
     simBinomial(p1=.052, p2=.052, n1=500, n2=500, nsim=10000)) / 10000
 
 # Perform a non-inferiority test to see if p2=400 / 500 is within 5% of