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 33... Line 33...
33 
double rexp(double scale)
 33 
double rexp(double scale)
34 
{
 34 
{
35 
    if (!R_FINITE(scale) || scale <= 0.0) {
 35 
    if (!R_FINITE(scale) || scale <= 0.0) {
36 
	if(scale == 0.) return 0.;
 36 
	if(scale == 0.) return 0.;
37 
	/* else */
 37 
	/* else */
38 
	ML_ERR_return_NAN;
 38 
	ML_WARN_return_NAN;
39 
    }
 39 
    }
40 
    return scale * exp_rand(); // --> in ./sexp.c
 40 
    return scale * exp_rand(); // --> in ./sexp.c
41 
}
 41 
}