The R Project SVN R

Rev

Rev 90307 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 90307 Rev 90310
Line 35... Line 35...
35 
 *	(Algorithm BTPEC).
 35 
 *	(Algorithm BTPEC).
36 
 
 36 
 
37 
 * Fixed two signs s/+/-/ in Stirling terms -- PR#19049 (2026-04)
 37 
 * Fixed two signs s/+/-/ in Stirling terms -- PR#19049 (2026-04)
38 
 */
 38 
 */
39 
 
 39 
 
40 
#define CALLED_FROM_rbinom
 - 
 
41 
#include <R_ext/Random.h>
 40 
#include <R_ext/Random.h>
42 
#include "nmath.h"
 41 
#include "nmath.h"
43 
#include "dpq.h"
 42 
#include "dpq.h"
44 
#include <stdlib.h>
 43 
#include <stdlib.h>
45 
#include <limits.h>
 44 
#include <limits.h>
46 
 
 45 
 
- 
 
 46 
#ifdef MATHLIB_STANDALONE
- 
 
 47 
 Binomtype ML_Binom_kind = BTPE; // possibly reset where rbinom() will be used
- 
 
 48 
# define Binom_kind ML_Binom_kind
- 
 
 49 
#else
- 
 
 50 
 Binomtype Binom_kind = BTPE;   // set and used in ../main/RNG.c  */
- 
 
 51 
#endif
- 
 
 52 
Binomtype R_binom_kind (void) { return Binom_kind; }
- 
 
 53 
 
47 
 
 54 
 
48 
#define repeat for(;;)
 55 
#define repeat for(;;)
49 
 
 56 
 
50 
double rbinom(double nin, double pp)
 57 
double rbinom(double nin, double pp)
51 
{
 58 
{