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 
    double val, nx;
 31 
    double val, nx;
32 
#ifdef IEEE_754
 32 
#ifdef IEEE_754
33 
    if (ISNAN(x) || ISNAN(n))
 33 
    if (ISNAN(x) || ISNAN(n))
34 
	return x + n;
 34 
	return x + n;
35 
#endif
 35 
#endif
36 
    if (n <= 0.0) ML_ERR_return_NAN;
 36 
    if (n <= 0.0) ML_WARN_return_NAN;
37 
 
 37 
 
38 
    if(!R_FINITE(x))
 38 
    if(!R_FINITE(x))
39 
	return (x < 0) ? R_DT_0 : R_DT_1;
 39 
	return (x < 0) ? R_DT_0 : R_DT_1;
40 
    if(!R_FINITE(n))
 40 
    if(!R_FINITE(n))
41 
	return pnorm(x, 0.0, 1.0, lower_tail, log_p);
 41 
	return pnorm(x, 0.0, 1.0, lower_tail, log_p);