Commit a174456b authored by Radford Neal's avatar Radford Neal

tweak Dppois

parent 8ab6fa0c
......@@ -2629,10 +2629,9 @@ static void Dppois (double x, double lambda, double *dx /*ignored*/,
double d = dpois(x,lambda,log_p);
if (lower_tail)
*dlambda = log_p ? -exp(d-v) : -d;
else
*dlambda = log_p ? exp(d-v) : d;
*dlambda = log_p ? exp(d-v) : d;
if (lower_tail) *dlambda = -*dlambda;
}
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment