R/hypergeo3F2.R

In betareg: Beta Regression

h3f2 <- function(a, b, z, n, maxiter = 5000, eps = 1e-14) {
    res <- .C("h3f2",
              a = as.double(a),
              b = as.double(b),
              z = as.double(z),
              n = as.integer(n),
              maxiter = as.integer(maxiter),
              eps = as.double(eps),
              out = double(n))
    res$out
}

## hypergeo3F2 <- function(u1, u2, u3, l1, l2, z,
##                         n, maxiter = 5000, eps = 1e-14) {
##     res <- .C("hypergeo3f2",
##               u1 = as.double(u1),
##               u2 = as.double(u2),
##               u3 = as.double(u3),
##               l1 = as.double(l1),
##               l2 = as.double(l2),
##               z = as.double(z),
##               n = as.integer(n),
##               maxiter = as.integer(maxiter),
##               eps = as.double(eps),
##               out = double(n))
##     res$out
## }