inline double dcdflib_t_n_cdf(double x, double param, double nc) { int what = 1; int status = 0; double p, q, bound; cdftnc(&what, &p, &q, &x, ¶m, &nc, &status, &bound); return p; }
inline double dcdflib_t_n_quantile(double p, double param, double nc) { int what = 2; int status = 0; double x, bound, q(1 - p); cdftnc(&what, &p, &q, &x, ¶m, &nc, &status, &bound); return x; }
void V_cdftnc(int *which, double *p, double *q, double *t, double *df, double *pnonc, int *status, double *bound, int *len) { int i; for (i = 0; i < *len; i++) { cdftnc((int *)which, &p[i], &q[i], &t[i], &df[i], &pnonc[i], (int *)&status[i], &bound[i]); } }