Errors in running code in vignettes:
when running code in 'choplumpValidation.Rnw'

> library(choplump)

> SEED <- 1:200

> chooseMatrix(5, 2)
      [,1] [,2] [,3] [,4] [,5]
 [1,]    1    1    0    0    0
 [2,]    1    0    1    0    0
 [3,]    1    0    0    1    0
 [4,]    1    0    0    0    1
 [5,]    0    1    1    0    0
 [6,]    0    1    0    1    0
 [7,]    0    1    0    0    1
 [8,]    0    0    1    1    0
 [9,]    0    0    1    0    1
[10,]    0    0    0    1    1

> chopGeneral
function (d, W = "W", Z = "Z") 
{
    ord <- order(d[, W], d[, Z])
    w <- d[ord, W]
    z <- d[ord, Z]
    M <- length(w[w != 0])
    m0 <- length(z[w != 0 & z == 0])
    m1 <- M - m0
    n1 <- length(z[z == 1])
    N <- length(w)
    n0 <- N - n1
    k0 <- n0 - m0
    k1 <- n1 - m1
    if (m0/n0 >= m1/n1) {
        a <- 0
        b <- k1 - floor((n1 * k0)/n0)
    }
    else {
        a <- k0 - floor((n0 * k1)/n1)
        b <- 0
    }
    wout <- w[(N + 1 - (M + a + b)):N]
    zout <- c(rep(0, a), rep(1, b), z[(N + 1 - M):N])
    dout <- data.frame(W = wout, Z = zout)
    dout
}
<bytecode: 0x000001ff6c332778>
<environment: namespace:choplump>

> choplumpGeneral
function (W, Z, testfunc = testfunc.wilcox.ties.general) 
{
    w <- W
    z <- Z
    M <- length(w[w != 0])
    m0 <- length(z[w != 0 & z == 0])
    m1 <- M - m0
    n1 <- length(z[z == 1])
    N <- length(w)
    n0 <- N - n1
    k0 <- n0 - m0
    k1 <- n1 - m1
    d <- data.frame(W = w, Z = z)
    T0 <- testfunc(chopGeneral(d))
    cm <- chooseMatrix(N, n1)
    Nperm <- dim(cm)[1]
    Ti <- rep(NA, Nperm)
    for (i in 1:Nperm) {
        d$Z <- cm[i, ]
        Ti[i] <- testfunc(chopGeneral(d))
    }
    p.lower <- length(Ti[Ti <= T0])
    p.upper <- length(Ti[Ti >= T0])
    out <- c(p.lower = p.lower/Nperm, p.upper = p.upper/Nperm, 
        p.2sided = min(1, 2 * min(p.lower, p.upper)/Nperm))
    out
}
<bytecode: 0x000001ff6c357150>
<environment: namespace:choplump>

> make.data <- function(N, M, SEED) {
+     set.seed(SEED)
+     Z <- rep(0, N)
+     Z[sample(1:N, N/2, replace = FALSE)] <- 1
+     test <- data.fra .... [TRUNCATED] 

> test <- make.data(10, 6, SEED[1])

> test
             W Z
1  0.000000000 1
2  0.000000000 1
3  0.000000000 0
4  0.000000000 1
5  1.272429321 0
6  0.414641434 0
7  1.539950042 1
8  0.928567035 0
9  0.294720447 1
10 0.005767173 0

> choplumpGeneral(test$W, test$Z, testfunc = testfunc.wilcox.ties.general)
  p.lower   p.upper  p.2sided 
0.7380952 0.2936508 0.5873016 

> cout <- choplump(W ~ Z, data = test, use.ranks = TRUE, 
+     exact = TRUE)
calculating exact test...
requires  62  evaluations of test statistic

> cout

	Exact Choplump Rank Test

data:  W by Z
p-value = 0.5873
alternative hypothesis: two.sided


> cout$p.values
  p.lower   p.upper  p.2sided 
0.7380952 0.2936508 0.5873016 

> testfunc.DiM.general <- function(d) {
+     -TDiM(d$W, d$Z)
+ }

> choplumpGeneral(test$W, test$Z, testfunc = testfunc.DiM.general)
  p.lower   p.upper  p.2sided 
0.6349206 0.3809524 0.7619048 

> choplump(W ~ Z, data = test, use.ranks = FALSE, exact = TRUE)$p.values
calculating exact test...
requires  62  evaluations of test statistic
  p.lower   p.upper  p.2sided 
0.6349206 0.3809524 0.7619048 

> library(coin)

  When sourcing 'choplumpValidation.R':
Error: there is no package called 'coin'
Execution halted

  'choplumpValidation.Rnw'... failed