The R Project SVN R

Rev

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

Rev 68984 Rev 77685
Line 36... Line 36...
36 
	return p + location + scale;
 36 
	return p + location + scale;
37 
#endif
 37 
#endif
38 
    R_Q_P01_check(p);
 38 
    R_Q_P01_check(p);
39 
    if (scale <= 0 || !R_FINITE(scale)) {
 39 
    if (scale <= 0 || !R_FINITE(scale)) {
40 
	if (scale == 0) return location;
 40 
	if (scale == 0) return location;
41 
	/* else */ ML_ERR_return_NAN;
 41 
	/* else */ ML_WARN_return_NAN;
42 
    }
 42 
    }
43 
 
 43 
 
44 
#define my_INF location + (lower_tail ? scale : -scale) * ML_POSINF
 44 
#define my_INF location + (lower_tail ? scale : -scale) * ML_POSINF
45 
    if (log_p) {
 45 
    if (log_p) {
46 
	if (p > -1) {
 46 
	if (p > -1) {