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

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

Author: keaven
Date: 2013-02-10 12:07:33 +0100 (Sun, 10 Feb 2013)
New Revision: 341

Modified:
   pkg/gsDesign/R/gsBinomialExact.R
Log:
Eliminated as.real to be compatible with R 3.0

Modified: pkg/gsDesign/R/gsBinomialExact.R
===================================================================
--- pkg/gsDesign/R/gsBinomialExact.R	2013-01-17 11:14:15 UTC (rev 340)
+++ pkg/gsDesign/R/gsBinomialExact.R	2013-02-10 11:07:33 UTC (rev 341)
@@ -6,7 +6,7 @@
     checkVector(a, "integer", interval=c(-Inf, Inf), inclusion=c(FALSE, FALSE))
     checkVector(b, "integer", interval=c(1, Inf), inclusion=c(FALSE, FALSE))
     ntheta <- as.integer(length(theta))
-    theta <- as.real(theta)
+    theta <- as.double(theta)
     if (k != length(n.I) || k!=length(a) || k != length(b))
         stop("Lengths of n.I, a, and b must equal k on input")
     m <- c(n.I[1], diff(n.I))