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 28... Line 28...
28 
    if (ISNAN(p) || ISNAN(location) || ISNAN(scale))
 28 
    if (ISNAN(p) || ISNAN(location) || ISNAN(scale))
29 
	return p + location + scale;
 29 
	return p + location + scale;
30 
#endif
 30 
#endif
31 
    R_Q_P01_boundaries(p, ML_NEGINF, ML_POSINF);
 31 
    R_Q_P01_boundaries(p, ML_NEGINF, ML_POSINF);
32 
 
 32 
 
33 
    if (scale <	 0.) ML_ERR_return_NAN;
 33 
    if (scale <	 0.) ML_WARN_return_NAN;
34 
    if (scale == 0.) return location;
 34 
    if (scale == 0.) return location;
35 
 
 35 
 
36 
    /* p := logit(p) = log( p / (1-p) )	 : */
 36 
    /* p := logit(p) = log( p / (1-p) )	 : */
37 
    if(log_p) {
 37 
    if(log_p) {
38 
	if(lower_tail)
 38 
	if(lower_tail)