farebrother(q, lambda, h = rep(1, length(lambda)),
delta = rep(0, length(lambda)), maxit = 100000,
eps = 10^(-10), mode = 1)
# Some results from Table 3, p.327, Davies (1980)
1 - farebrother(1, c(6, 3, 1), c(1, 1, 1), c(0, 0, 0))$Qq
Run the code above in your browser using DataLab