Displaying 1 result from an estimated 1 matches for "pthreshold".
Did you mean:
threshold
2006 Jul 04
1
problem getting R 2.3.1 svn r38481 to pass make check-all
...,...)
+ fhat <- cumsum(tx)/sample.size
+ max(abs(fhat-f))
+ }
>
> pdkwbound <- function(n,t) 2*exp(-2*n*t*t)
>
> qdkwbound <- function(n,p) sqrt(log(p/2)/(-2*n))
>
> dkwtest <- function(stub = "norm", ...,
+ sample.size = 10000, pthreshold = 0.001,
+ print.result = TRUE, print.detail = FALSE,
+ stop.on.failure = TRUE)
+ {
+ rfoo <- eval(as.name(paste("r", stub, sep="")))
+ pfoo <- eval(as.name(paste("p", stub, sep="")))
+ s <- superro...