The R Project SVN R

Rev

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

Rev 7725 Rev 8431
Line 19... Line 19...
19 
 *
 19 
 *
20 
 *  DESCRIPTION
 20 
 *  DESCRIPTION
21 
 *
 21 
 *
22 
 *    Random variates from the uniform distribution.
 22 
 *    Random variates from the uniform distribution.
23 
 */
 23 
 */
24 
#include "Mathlib.h"
 24 
#include "nmath.h"
25 
 
 25 
 
26 
double runif(double a, double b)
 26 
double runif(double a, double b)
27 
{
 27 
{
28 
    if (!R_FINITE(a) || !R_FINITE(b) || b < a)	ML_ERR_return_NAN;
 28 
    if (!R_FINITE(a) || !R_FINITE(b) || b < a)	ML_ERR_return_NAN;
29 
 
 29