The R Project SVN R

Rev

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

Rev 574 Rev 580
Line 30... Line 30...
30 
 
 30 
 
31 
double dhyper(double x, double NR, double NB, double n)
 31 
double dhyper(double x, double NR, double NB, double n)
32 
{
 32 
{
33 
    double N;
 33 
    double N;
34 
#ifdef IEEE_754
 34 
#ifdef IEEE_754
35 
    if(!finite(x) || !finite(NR) || !finite(NB) || !finite(n)) {
 35 
    if (ISNAN(x) || ISNAN(NR) || ISNAN(NB) || ISNAN(n))
36 
	ML_ERROR(ME_DOMAIN);
 - 
 
37 
	return ML_NAN;
 36 
	return x + NR + NB + n;
38 
    }
 - 
 
39 
#endif
 37 
#endif
40 
    x = floor(x + 0.5);
 38 
    x = floor(x + 0.5);
41 
    NR = floor(NR + 0.5);
 39 
    NR = floor(NR + 0.5);
42 
    NB = floor(NB + 0.5);
 40 
    NB = floor(NB + 0.5);
43 
    N = NR + NB;
 41 
    N = NR + NB;