The R Project SVN R

Rev

Rev 8074 | Rev 37263 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8074 Rev 8431
Line 24... Line 24...
24 
 *  NOTES
 24 
 *  NOTES
25 
 *
 25 
 *
26 
 *	x = the number of failures before the n-th success
 26 
 *	x = the number of failures before the n-th success
27 
 */
 27 
 */
28 
 
 28 
 
29 
#include "Mathlib.h"
 29 
#include "nmath.h"
30 
#include "dpq.h"
 30 
#include "dpq.h"
31 
 
 31 
 
32 
double pnbinom(double x, double n, double p, int lower_tail, int log_p)
 32 
double pnbinom(double x, double n, double p, int lower_tail, int log_p)
33 
{
 33 
{
34 
#ifdef IEEE_754
 34 
#ifdef IEEE_754