The R Project SVN R

(root)/trunk/src/nmath/rweibull.c – Rev 7725 → 8431



 *  DESCRIPTION
 *
 *    Random variates from the Weibull distribution.
 */
 
#include "nmath.h"
 
double rweibull(double shape, double scale)
{
    if (
	!R_FINITE(shape) || !R_FINITE(scale) ||

Rev 7725	Rev 8431
Line 20...	Line 20...
20	`* DESCRIPTION`	20	`* DESCRIPTION`
21	`*`	21	`*`
22	`* Random variates from the Weibull distribution.`	22	`* Random variates from the Weibull distribution.`
23	`*/`	23	`*/`
24		24
25	`#include "Mathlib.h"`	25	`#include "nmath.h"`
26		26
27	`double rweibull(double shape, double scale)`	27	`double rweibull(double shape, double scale)`
28	`{`	28	`{`
29	`if (`	29	`if (`
30	`!R_FINITE(shape) \|\| !R_FINITE(scale) \|\|`	30	`!R_FINITE(shape) \|\| !R_FINITE(scale) \|\|`