Merge pull request #1 from eddelbuettel/master

mkln · web-flow · commit d7535f37e9a0 · 2021-08-12T08:35:06.000-07:00
Switch one PI to M_PI to support STRICT_R_HEADERS in Rcpp
diff --git a/src/mh_adapt.h b/src/mh_adapt.h
@@ -213,7 +213,7 @@ inline double normal_proposal_logitscale(const double& x, double l=0, double u=1
 }
 
 inline double lognormal_logdens(const double& x, const double& m, const double& ssq){
-  return -.5*(2*PI*ssq) - .5/ssq * pow(log(x) - m, 2) - log(x);
+  return -.5*(2*M_PI*ssq) - .5/ssq * pow(log(x) - m, 2) - log(x);
 }
 
 inline double gamma_logdens(const double& x, const double& a, const double& b){

Original file line number	Diff line number	Diff line change
`@@ -213,7 +213,7 @@ inline double normal_proposal_logitscale(const double& x, double l=0, double u=1`
`213`	`213`	`}`
`214`	`214`
`215`	`215`	`inline double lognormal_logdens(const double& x, const double& m, const double& ssq){`
`216`		`- return -.5(2PIssq) - .5/ssq pow(log(x) - m, 2) - log(x);`
	`216`	`+ return -.5(2M_PIssq) - .5/ssq pow(log(x) - m, 2) - log(x);`
`217`	`217`	`}`
`218`	`218`
`219`	`219`	`inline double gamma_logdens(const double& x, const double& a, const double& b){`