The R Project SVN R

Rev

Rev 7725 | Rev 13047 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7725 Rev 8431
Line 24... Line 24...
24 
 *  NOTES
 24 
 *  NOTES
25 
 *
 25 
 *
26 
 *    This function calls rchisq and rnorm to do the real work.
 26 
 *    This function calls rchisq and rnorm to do the real work.
27 
 */
 27 
 */
28 
 
 28 
 
29 
#include "Mathlib.h"
 29 
#include "nmath.h"
30 
 
 30 
 
31 
double rt(double df)
 31 
double rt(double df)
32 
{
 32 
{
33 
    if (ISNAN(df) || df <= 0.0)	ML_ERR_return_NAN;
 33 
    if (ISNAN(df) || df <= 0.0)	ML_ERR_return_NAN;
34 
 
 34