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 30... Line 30...
30 
#include "nmath.h"
 30 
#include "nmath.h"
31 
 
 31 
 
32 
double rlnorm(double meanlog, double sdlog)
 32 
double rlnorm(double meanlog, double sdlog)
33 
{
 33 
{
34 
    if(ISNAN(meanlog) || !R_FINITE(sdlog) || sdlog < 0.)
 34 
    if(ISNAN(meanlog) || !R_FINITE(sdlog) || sdlog < 0.)
35 
	ML_ERR_return_NAN;
 35 
	ML_WARN_return_NAN;
36 
 
 36 
 
37 
    return exp(rnorm(meanlog, sdlog));
 37 
    return exp(rnorm(meanlog, sdlog));
38 
}
 38 
}