p <- pLausen94(2.5, 20, 0.25, 0.75)
# Lausen 94, page 489
if (round(p, 3) != 0.073) stop("error checking pLausen94")
# the same
p2 <- pLausen94(2.5, 200, 0.25, 0.75, m=seq(from=50, to=150, by=10))
stopifnot(all.equal(round(p,3), round(p2,3)))
Run the code above in your browser using DataLab