powered by
dhaar(r) phaar(q, lower.tail = TRUE) rhaar(n)
phaar(q, lower.tail = TRUE)
rhaar(n)
length(n)>1