The R Project SVN R

(root)/branches/R-NaString/src/nmath/dhyper.c @ 28362 – Rev 7671 → 8074



 *
 *    The density of the hypergeometric distribution.
 */
 
#include "Mathlib.h"
#include "dpq.h"
 
double dhyper(double x, double NR, double NB, double n, int give_log)
{
    double N;
#ifdef IEEE_754

Rev 7671	Rev 8074
Line 21...	Line 21...
21	`*`	21	`*`
22	`* The density of the hypergeometric distribution.`	22	`* The density of the hypergeometric distribution.`
23	`*/`	23	`*/`
24		24
25	`#include "Mathlib.h"`	25	`#include "Mathlib.h"`
-		26	`#include "dpq.h"`
26		27
27	`double dhyper(double x, double NR, double NB, double n, int give_log)`	28	`double dhyper(double x, double NR, double NB, double n, int give_log)`
28	`{`	29	`{`
29	`double N;`	30	`double N;`
30	`#ifdef IEEE_754`	31	`#ifdef IEEE_754`