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 31... Line 31...
31 
    if (ISNAN(p) || ISNAN(df) || ISNAN(ncp))
 31 
    if (ISNAN(p) || ISNAN(df) || ISNAN(ncp))
32 
	return p + df + ncp;
 32 
	return p + df + ncp;
33 
#endif
 33 
#endif
34 
    /* Was
 34 
    /* Was
35 
     * df = floor(df + 0.5);
 35 
     * df = floor(df + 0.5);
36 
     * if (df < 1 || ncp < 0) ML_ERR_return_NAN;
 36 
     * if (df < 1 || ncp < 0) ML_WARN_return_NAN;
37 
     */
 37 
     */
38 
    if (df <= 0.0) ML_ERR_return_NAN;
 38 
    if (df <= 0.0) ML_WARN_return_NAN;
39 
 
 39 
 
40 
    if(ncp == 0.0 && df >= 1.0) return qt(p, df, lower_tail, log_p);
 40 
    if(ncp == 0.0 && df >= 1.0) return qt(p, df, lower_tail, log_p);
41 
 
 41 
 
42 
    R_Q_P01_boundaries(p, ML_NEGINF, ML_POSINF);
 42 
    R_Q_P01_boundaries(p, ML_NEGINF, ML_POSINF);
43 
 
 43