Displaying 1 result from an estimated 1 matches for "r_swilk".
2012 Apr 04
1
Shapiro-Wilk cpoefficients: 2 Qs
...ength(x)
if (n < 3 || n > 5000)
stop("sample size must be between 3 and 5000")
rng <- x[n] - x[1L]
if (rng == 0)
stop("all 'x' values are identical")
if (rng < 1e-10)
x <- x/rng
n2 <- n%/%2L
sw <- .C(R_swilk, init = FALSE, as.single(x), n, n1 = n,
n2, a = single(n2), w = double(1), pw = double(1), ifault = integer(1L))
if (sw$ifault && sw$ifault != 7)
stop(gettextf("ifault=%d. This should not happen", sw$ifault),
domain = NA)
RVAL <- list(stat...