# NOT RUN {
# Table 1 of Farabrother (1984)
# Q6 (The taget values are 0.0061, 0.5913, and 0.9779)
pimeta::pwchisq( 20, lambda = c(7,3), nu = c(6,2), delta = c(6,2))
pimeta::pwchisq(100, lambda = c(7,3), nu = c(6,2), delta = c(6,2))
pimeta::pwchisq(200, lambda = c(7,3), nu = c(6,2), delta = c(6,2))
# [1] 0.006117973
# [1] 0.5913421
# [1] 0.9779184
# }
Run the code above in your browser using DataLab