The R Project SVN R

Rev

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

Rev 70052 Rev 70083
Line 43... Line 43...
43 
 
 43 
 
44 
#include "nmath.h"
 44 
#include "nmath.h"
45 
#include "dpq.h"
 45 
#include "dpq.h"
46 
#include <limits.h>
 46 
#include <limits.h>
47 
 
 47 
 
48 
#ifdef DEBUG_rhyper
 - 
 
49 
# include <R_ext/Print.h>
 - 
 
50 
#endif
 - 
 
51 
 
 - 
 
52 
// afc(i) :=  ln( i! )	[logarithm of the factorial i]
 48 
// afc(i) :=  ln( i! )	[logarithm of the factorial i]
53 
static double afc(int i)
 49 
static double afc(int i)
54 
{
 50 
{
55 
    // If (i > 7), use Stirling's approximation, otherwise use table lookup.
 51 
    // If (i > 7), use Stirling's approximation, otherwise use table lookup.
56 
    const static double al[8] =
 52 
    const static double al[8] =