The R Project SVN R

Rev

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

Rev 59171 Rev 60268
Line 50... Line 50...
50 
 */
 50 
 */
51 
 
 51 
 
52 
double pnt(double t, double df, double ncp, int lower_tail, int log_p)
 52 
double pnt(double t, double df, double ncp, int lower_tail, int log_p)
53 
{
 53 
{
54 
    double albeta, a, b, del, errbd, lambda, rxb, tt, x;
 54 
    double albeta, a, b, del, errbd, lambda, rxb, tt, x;
55 
    long double geven, godd, p, q, s, tnc, xeven, xodd;
 55 
    LDOUBLE geven, godd, p, q, s, tnc, xeven, xodd;
56 
    int it, negdel;
 56 
    int it, negdel;
57 
 
 57 
 
58 
    /* note - itrmax and errmax may be changed to suit one's needs. */
 58 
    /* note - itrmax and errmax may be changed to suit one's needs. */
59 
 
 59 
 
60 
    const int itrmax = 1000;
 60 
    const int itrmax = 1000;