The R Project SVN R

Rev

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

Rev 580 Rev 1023
Line 38... Line 38...
38 
    x = floor(x + 0.5);
 38 
    x = floor(x + 0.5);
39 
    NR = floor(NR + 0.5);
 39 
    NR = floor(NR + 0.5);
40 
    NB = floor(NB + 0.5);
 40 
    NB = floor(NB + 0.5);
41 
    N = NR + NB;
 41 
    N = NR + NB;
42 
    n = floor(n + 0.5);
 42 
    n = floor(n + 0.5);
43 
    if (NR < 0 || NB < 0 || n <= 0 || n > N) {
 43 
    if (NR < 0 || NB < 0 || n < 0 || n > N) {
44 
	ML_ERROR(ME_DOMAIN);
 44 
	ML_ERROR(ME_DOMAIN);
45 
	return ML_NAN;
 45 
	return ML_NAN;
46 
    }
 46 
    }
47 
    if (x < fmax2(0, n - NB) || x > fmin2(n, NR))
 47 
    if (x < fmax2(0, n - NB) || x > fmin2(n, NR))
48 
	return 0;
 48 
	return 0;