R help - Aug 2012 - Kolmogorov distribution

Please help me to get a function for Kolmogorov distribution.
I've looked through the ks.test code and found that Kolmogorov distribution
is calculating in the following way:

pkstwo <- function(x, tol = 1e-06) {
              if (is.numeric(x))
                  x <- as.double(x)
              else stop("argument 'x' must be numeric")
              p <- rep(0, length(x))
              p[is.na(x)] <- NA
              IND <- which(!is.na(x) & (x > 0))
              if (length(IND))
                  p[IND] <- .C(C_pkstwo, length(x[IND]), p = x[IND],
                    as.double(tol), PACKAGE = "stats")$p
              p
          }

but when I am trying  to call, for example, pkstwo(0.8),
R tells me that it could not find 'C_pkstwo' object.

Thank you in advance.



--
View this message in context:
http://r.789695.n4.nabble.com/Kolmogorov-distribution-tp4639751.html
Sent from the R help mailing list archive at Nabble.com.

You need to use
  p[IND] <- .C(stats:::C_pkstwo, length(x[IND]), p = x[IND],
instead of
  p[IND] <- .C(C_pkstwo, length(x[IND]), p = x[IND],




--
View this message in context:
http://r.789695.n4.nabble.com/Kolmogorov-distribution-tp4639751p4644945.html
Sent from the R help mailing list archive at Nabble.com.