search for: hyp2f1

Dear List, I stepped into a strange effect which I can't explain to myself (probably due to lack of knowledge on R internals). I have four vectors a,b,c and z of size 10000 each. With these vectors I call .Call("hyp2f1forrey", a, b, b, z, PACKAGE = "hyp2f1") to access SEXP hyp2f1forrey(SEXP a, SEXP b, SEXP c, SEXP x) { int i,n; double *xa, *xb, *xc, *xx, *xresr, *xresi; SEXP resr, resi; n = LENGTH(a); PROTECT(a = AS_NUMERIC(a)); PROTECT(b = AS_NUMERIC(b)); PROTECT(c...

Hi, I'm an R newbie and I've got a question regarding a certain function in R. I need to calculate values of the hypergeometric 2f1 function (hyp2f1 in cephes math library, Hypergeometric2f1 in Mathematica) and I'm wondering if anyone has tried to implement it in R or S-Plus. If not, what would be the prefered way to do so? Should I rather try to use an external C module or implement it in R directly? Thanks for any hints! Best Regards,...