| Line 1... |
Line 1... |
| 1 |
/*
|
1 |
/*
|
| 2 |
* Mathlib : A C Library of Special Functions
|
2 |
* Mathlib : A C Library of Special Functions
|
| 3 |
* Copyright (C) 1998-2024 The R Core Team
|
3 |
* Copyright (C) 1998-2025 The R Core Team
|
| 4 |
*
|
4 |
*
|
| 5 |
* This program is free software; you can redistribute it and/or modify
|
5 |
* This program is free software; you can redistribute it and/or modify
|
| 6 |
* it under the terms of the GNU General Public License as published by
|
6 |
* it under the terms of the GNU General Public License as published by
|
| 7 |
* the Free Software Foundation; either version 2 of the License, or
|
7 |
* the Free Software Foundation; either version 2 of the License, or
|
| 8 |
* (at your option) any later version.
|
8 |
* (at your option) any later version.
|
| Line 204... |
Line 204... |
| 204 |
#define pnbeta2 Rf_pnbeta2
|
204 |
#define pnbeta2 Rf_pnbeta2
|
| 205 |
#define bratio Rf_bratio
|
205 |
#define bratio Rf_bratio
|
| 206 |
|
206 |
|
| 207 |
/* Chebyshev Series */
|
207 |
/* Chebyshev Series */
|
| 208 |
|
208 |
|
| 209 |
int attribute_hidden chebyshev_init(double*, int, double);
|
209 |
attribute_hidden int chebyshev_init(double*, int, double);
|
| 210 |
double attribute_hidden chebyshev_eval(double, const double *, const int);
|
210 |
attribute_hidden double chebyshev_eval(double, const double *, const int);
|
| 211 |
|
211 |
|
| 212 |
/* Gamma and Related Functions */
|
212 |
/* Gamma and Related Functions */
|
| 213 |
|
213 |
|
| 214 |
void attribute_hidden gammalims(double*, double*);
|
214 |
attribute_hidden void gammalims(double*, double*);
|
| 215 |
double attribute_hidden lgammacor(double); /* log(gamma) correction */
|
215 |
attribute_hidden double lgammacor(double); /* log(gamma) correction */
|
| 216 |
double attribute_hidden stirlerr(double); /* Stirling expansion "error" */
|
216 |
attribute_hidden double stirlerr(double); /* Stirling expansion "error" */
|
| 217 |
|
217 |
|
| 218 |
double attribute_hidden lfastchoose(double, double);
|
218 |
attribute_hidden double lfastchoose(double, double);
|
| 219 |
|
219 |
|
| 220 |
double attribute_hidden bd0(double, double);
|
220 |
attribute_hidden double bd0(double, double);
|
| 221 |
void attribute_hidden ebd0(double, double, double*, double*);
|
221 |
attribute_hidden void ebd0(double, double, double*, double*);
|
| 222 |
|
222 |
|
| 223 |
double attribute_hidden pnchisq_raw(double, double, double, double, double,
|
223 |
attribute_hidden double pnchisq_raw(double, double, double, double, double,
|
| 224 |
int, Rboolean, Rboolean);
|
224 |
int, Rboolean, Rboolean);
|
| 225 |
double attribute_hidden pgamma_raw(double, double, int, int);
|
225 |
attribute_hidden double pgamma_raw(double, double, int, int);
|
| 226 |
double attribute_hidden pbeta_raw(double, double, double, int, int);
|
226 |
attribute_hidden double pbeta_raw(double, double, double, int, int);
|
| 227 |
double attribute_hidden qchisq_appr(double, double, double, int, int, double tol);
|
227 |
attribute_hidden double qchisq_appr(double, double, double, int, int, double tol);
|
| 228 |
LDOUBLE attribute_hidden pnbeta_raw(double, double, double, double, double);
|
228 |
attribute_hidden LDOUBLE pnbeta_raw(double, double, double, double, double);
|
| 229 |
double attribute_hidden pnbeta2(double, double, double, double, double, int, int);
|
229 |
attribute_hidden double pnbeta2(double, double, double, double, double, int, int);
|
| 230 |
|
230 |
|
| 231 |
int Rf_i1mach(int);
|
231 |
int Rf_i1mach(int);
|
| 232 |
|
232 |
|
| 233 |
/* From toms708.c */
|
233 |
/* From toms708.c */
|
| 234 |
void attribute_hidden bratio(double a, double b, double x, double y,
|
234 |
attribute_hidden void bratio(double a, double b, double x, double y,
|
| 235 |
double *w, double *w1, int *ierr, int log_p);
|
235 |
double *w, double *w1, int *ierr, int log_p);
|
| 236 |
|
236 |
|
| 237 |
|
237 |
|
| 238 |
#endif /* MATHLIB_PRIVATE_H */
|
238 |
#endif /* MATHLIB_PRIVATE_H */
|
The R Project SVN
R