The R Project SVN R

Rev

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

Rev 86200 Rev 88765
Line 148... Line 148...
148 
#endif
 148 
#endif
149 
    if (!R_FINITE(n)) ML_WARN_return_NAN;
 149 
    if (!R_FINITE(n)) ML_WARN_return_NAN;
150 
    n = R_forceint(n);
 150 
    n = R_forceint(n);
151 
    if (n <= 0) ML_WARN_return_NAN;
 151 
    if (n <= 0) ML_WARN_return_NAN;
152 
 
 152 
 
153 
    x = R_forceint(x + 1e-7);
 153 
    x = floor(x + 1e-7);
154 
    if (x < 0.0)
 154 
    if (x < 0.0)
155 
	return(R_DT_0);
 155 
	return(R_DT_0);
156 
    if (x >= n * (n + 1) / 2)
 156 
    if (x >= n * (n + 1) / 2)
157 
	return(R_DT_1);
 157 
	return(R_DT_1);
158 
 
 158