The R Project SVN R

Rev

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

Rev 68947 Rev 77685
Line 30... Line 30...
30 
 
 30 
 
31 
#ifdef IEEE_754
 31 
#ifdef IEEE_754
32 
    if (ISNAN(p) || ISNAN(a) || ISNAN(b) || ISNAN(ncp))
 32 
    if (ISNAN(p) || ISNAN(a) || ISNAN(b) || ISNAN(ncp))
33 
	return p + a + b + ncp;
 33 
	return p + a + b + ncp;
34 
#endif
 34 
#endif
35 
    if (!R_FINITE(a)) ML_ERR_return_NAN;
 35 
    if (!R_FINITE(a)) ML_WARN_return_NAN;
36 
 
 36 
 
37 
    if (ncp < 0. || a <= 0. || b <= 0.) ML_ERR_return_NAN;
 37 
    if (ncp < 0. || a <= 0. || b <= 0.) ML_WARN_return_NAN;
38 
 
 38 
 
39 
    R_Q_P01_boundaries(p, 0, 1);
 39 
    R_Q_P01_boundaries(p, 0, 1);
40 
 
 40 
 
41 
    p = R_DT_qIv(p);
 41 
    p = R_DT_qIv(p);
42 
 
 42