Defines functions qPval

Documented in qPval

qPval <- function(prob, u, theta, sigma2){

    tmp.fun <- function(q, prob, u, theta, sigma2){return(pPval(q, u, theta, sigma2) - prob)}

    if (tmp.fun(q = 10^-10, prob, u, theta, sigma2) >= 0){res <- 10^-5} else {res <- uniroot(tmp.fun, interval = c(10^-10, 1), prob, u, theta, sigma2, tol = 10^-8)$root}

Try the selectMeta package in your browser

Any scripts or data that you put into this service are public.

selectMeta documentation built on May 2, 2019, 4:22 a.m.