The R Project SVN R

Rev

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

Rev 574 Rev 5108
Line 39... Line 39...
39 
	isnan(df) ||
 39 
	isnan(df) ||
40 
#endif
 40 
#endif
41 
	df <= 0.0) {
 41 
	df <= 0.0) {
42 
	ML_ERROR(ME_DOMAIN);
 42 
	ML_ERROR(ME_DOMAIN);
43 
    }
 43 
    }
44 
    if(!finite(df))
 44 
    if(!R_FINITE(df))
45 
	return snorm();
 45 
	return snorm();
46 
    else
 46 
    else
47 
	return snorm() / sqrt(rchisq(df) / df);
 47 
	return snorm() / sqrt(rchisq(df) / df);
48 
}
 48 
}