The R Project SVN R

Rev

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

Rev 13114 Rev 18536
Line 17... Line 17...
17 
#define R_D_exp(x)	(log_p	?  (x)	 : exp(x))	/* exp(x) */
 17 
#define R_D_exp(x)	(log_p	?  (x)	 : exp(x))	/* exp(x) */
18 
#define R_D_log(p)	(log_p	?  (p)	 : log(p))	/* log(p) */
 18 
#define R_D_log(p)	(log_p	?  (p)	 : log(p))	/* log(p) */
19 
 
 19 
 
20 
#define R_DT_val(x)	R_D_val(R_D_Lval(x))		/*  x  in pF */
 20 
#define R_DT_val(x)	R_D_val(R_D_Lval(x))		/*  x  in pF */
21 
#define R_DT_Cval(x)	R_D_val(R_D_Cval(x))		/*  1 - x */
 21 
#define R_DT_Cval(x)	R_D_val(R_D_Cval(x))		/*  1 - x */
22 
#define R_DT_qIv(p)	R_D_Lval(R_D_qIv(p))		/*  p  in qF ! */
 22 
/*#define R_DT_qIv(p)	R_D_Lval(R_D_qIv(p))		 *  p  in qF ! */
- 
 
 23 
#define R_DT_qIv(p)	(log_p ? (lower_tail ? exp(p) : - expm1(p)) \
- 
 
 24 
			       : R_D_Lval(p))
- 
 
 25 
 
23 
#define R_DT_CIv(p)	R_D_Cval(R_D_qIv(p))		/*  1 - p in qF */
 26 
/*#define R_DT_CIv(p)	R_D_Cval(R_D_qIv(p))		 *  1 - p in qF */
- 
 
 27 
#define R_DT_CIv(p)	(log_p ? (lower_tail ? -expm1(p) : exp(p)) \
- 
 
 28 
			       : R_D_Cval(p))
- 
 
 29 
 
24 
 
 30 
 
25 
#define R_DT_exp(x)	R_D_exp(R_D_Lval(x))		/* exp(x) */
 31 
#define R_DT_exp(x)	R_D_exp(R_D_Lval(x))		/* exp(x) */
26 
#define R_DT_Cexp(x)	R_D_exp(R_D_Cval(x))		/* exp(1 - x) */
 32 
#define R_DT_Cexp(x)	R_D_exp(R_D_Cval(x))		/* exp(1 - x) */
27 
 
 33 
 
28 
#define R_DT_log(p)	(lower_tail ? R_D_log(p) :		\
 34 
#define R_DT_log(p)	(lower_tail ? R_D_log(p) :		\