Commit 6b812c8e8596bb69b8abf53d367c2a90dab71a96

upgraded rgs_distrib.h header

Commit diff


2	2	#define __RGS_DISTRIB__
3	3	#include <Rinternals.h>
4	4
	5	#define PI 3.14159265358979323846
	6
5	7	#define RGS_DPAR(node, n) REAL( RGS_NVALUE( RGS_CPARAMETERS((node), (n)) ) )
6	8	#define RGS_DPAR0 RGS_DPAR(node, 0)
7	9	#define RGS_DPAR1 RGS_DPAR(node, 1)
…	…
23	23	double rgs_dunif(SEXP node);
24	24	double rgs_dpois(SEXP node);
25	25	double rgs_df(SEXP node);
	26	double rgs_ddirichlet (SEXP node);
26	27
27	28	#endif
toggle raw diff
--- a/RGS/inst/include/rgs_distrib.h +++ b/RGS/inst/include/rgs_distrib.h @@ -2,6 +2,8 @@ #define __RGS_DISTRIB__ #include <Rinternals.h> +#define PI 3.14159265358979323846 + #define RGS_DPAR(node, n) REAL( RGS_NVALUE( RGS_CPARAMETERS((node), (n)) ) ) #define RGS_DPAR0 RGS_DPAR(node, 0) #define RGS_DPAR1 RGS_DPAR(node, 1) @@ -21,5 +23,6 @@ double rgs_dgeom(SEXP node); double rgs_dunif(SEXP node); double rgs_dpois(SEXP node); double rgs_df(SEXP node); +double rgs_ddirichlet (SEXP node); #endif


23	23	double rgs_dunif(SEXP node);
24	24	double rgs_dpois(SEXP node);
25	25	double rgs_df(SEXP node);
	26	double rgs_ddirichlet (SEXP node);
26	27
27	28	#endif
toggle raw diff
--- a/RGS/src/rgs_distrib.h +++ b/RGS/src/rgs_distrib.h @@ -23,5 +23,6 @@ double rgs_dgeom(SEXP node); double rgs_dunif(SEXP node); double rgs_dpois(SEXP node); double rgs_df(SEXP node); +double rgs_ddirichlet (SEXP node); #endif