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 21... Line 21...
21 
#include "nmath.h"
 21 
#include "nmath.h"
22 
 
 22 
 
23 
double rlogis(double location, double scale)
 23 
double rlogis(double location, double scale)
24 
{
 24 
{
25 
    if (ISNAN(location) || !R_FINITE(scale))
 25 
    if (ISNAN(location) || !R_FINITE(scale))
26 
	ML_ERR_return_NAN;
 26 
	ML_WARN_return_NAN;
27 
 
 27 
 
28 
    if (scale == 0. || !R_FINITE(location))
 28 
    if (scale == 0. || !R_FINITE(location))
29 
	return location;
 29 
	return location;
30 
    else {
 30 
    else {
31 
	double u = unif_rand();
 31 
	double u = unif_rand();