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 29... Line 29...
29 
{
 29 
{
30 
#ifdef IEEE_754
 30 
#ifdef IEEE_754
31 
    if (ISNAN(x) || ISNAN(df1) || ISNAN(df2))
 31 
    if (ISNAN(x) || ISNAN(df1) || ISNAN(df2))
32 
	return x + df2 + df1;
 32 
	return x + df2 + df1;
33 
#endif
 33 
#endif
34 
    if (df1 <= 0. || df2 <= 0.) ML_ERR_return_NAN;
 34 
    if (df1 <= 0. || df2 <= 0.) ML_WARN_return_NAN;
35 
 
 35 
 
36 
    R_P_bounds_01(x, 0., ML_POSINF);
 36 
    R_P_bounds_01(x, 0., ML_POSINF);
37 
 
 37 
 
38 
    /* move to pchisq for very large values - was 'df1 > 4e5' in 2.0.x,
 38 
    /* move to pchisq for very large values - was 'df1 > 4e5' in 2.0.x,
39 
       now only needed for df1 = Inf or df2 = Inf {since pbeta(0,*)=0} : */
 39 
       now only needed for df1 = Inf or df2 = Inf {since pbeta(0,*)=0} : */