Displaying 1 result from an estimated 1 matches for "pdkwbound".
Did you mean:
qdkwbound
2006 Jul 04
1
problem getting R 2.3.1 svn r38481 to pass make check-all
...Smirnov statistic.
> ##
>
>
> superror <- function(rfoo,pfoo,sample.size,...) {
+ x <- rfoo(sample.size,...)
+ tx <- table(x)
+ xi <- as.numeric(names(tx))
+ f <- pfoo(xi,...)
+ 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,
+...