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 
 
 33 
 
34 
#include "nmath.h"
 34 
#include "nmath.h"
35 
 
 35 
 
36 
double rchisq(double df)
 36 
double rchisq(double df)
37 
{
 37 
{
38 
    if (!R_FINITE(df) || df < 0.0) ML_ERR_return_NAN;
 38 
    if (!R_FINITE(df) || df < 0.0) ML_WARN_return_NAN;
39 
 
 39 
 
40 
    return rgamma(df / 2.0, 2.0);
 40 
    return rgamma(df / 2.0, 2.0);
41 
}
 41 
}