The R Project SVN R

Rev

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

Rev 43204 Rev 46010
Line 106... Line 106...
106 
	lower_tail = !lower_tail;
 106 
	lower_tail = !lower_tail;
107 
    }
 107 
    }
108 
 
 108 
 
109 
    if (x < 0)
 109 
    if (x < 0)
110 
	return R_DT_0;
 110 
	return R_DT_0;
- 
 
 111 
    if (x >= NR || x >= n)
- 
 
 112 
	return R_DT_1;
111 
 
 113 
 
112 
    d  = dhyper (x, NR, NB, n, log_p);
 114 
    d  = dhyper (x, NR, NB, n, log_p);
113 
    pd = pdhyper(x, NR, NB, n, log_p);
 115 
    pd = pdhyper(x, NR, NB, n, log_p);
114 
 
 116 
 
115 
    return log_p ? R_DT_Log(d + pd) : R_D_Lval(d * pd);
 117 
    return log_p ? R_DT_Log(d + pd) : R_D_Lval(d * pd);