The R Project SVN R

Rev

Rev 87773 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 87773 Rev 87903
Line 86... Line 86...
86 
	return log1p(-ans);
 86 
	return log1p(-ans);
87 
    }
 87 
    }
88 
}
 88 
}
89 
 
 89 
 
90 
// Used in this file and in qnchisq.c
 90 
// Used in this file and in qnchisq.c
91 
double attribute_hidden
 91 
attribute_hidden double
92 
pnchisq_raw(double x, double f, double theta /* = ncp */,
 92 
pnchisq_raw(double x, double f, double theta /* = ncp */,
93 
	    double errmax, double reltol, int itrmax,
 93 
	    double errmax, double reltol, int itrmax,
94 
	    Rboolean lower_tail, Rboolean log_p)
 94 
	    Rboolean lower_tail, Rboolean log_p)
95 
{
 95 
{
96 
    double lam, x2, f2, term, bound, f_x_2n, f_2n;
 96 
    double lam, x2, f2, term, bound, f_x_2n, f_2n;