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

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

Author: keaven
Date: 2013-02-22 11:07:11 +0100 (Fri, 22 Feb 2013)
New Revision: 344

Modified:
   pkg/gsDesign/R/gsNormalGrid.R
Log:
Fixed invCDF minor check issue; not a routine currently in use, but left in as it could be exported at some point.

Modified: pkg/gsDesign/R/gsNormalGrid.R
===================================================================
--- pkg/gsDesign/R/gsNormalGrid.R	2013-02-20 17:18:27 UTC (rev 343)
+++ pkg/gsDesign/R/gsNormalGrid.R	2013-02-22 10:07:11 UTC (rev 344)
@@ -58,7 +58,7 @@
     list(z=z, density=d, gridwgts=w, wgts=d*w) 
 }
 
-invCDF  <- function(q, x, discrete=FALSE, upper=FALSE)
+invCDF  <- function(q, x, discrete=FALSE, upper=FALSE, tol=.000001)
 {   checkLengths(x$z, x$density, x$gridwgts, x$wgts)
     len <- length(x$z)
     checkVector(x$z[2:len]-x$z[1:(len-1)],"numeric",c(0,Inf), c(TRUE, FALSE))