Commit 4ea251fc authored by Radford Neal's avatar Radford Neal

minor fix

parent 29459345
......@@ -699,7 +699,7 @@ static SEXP reverse_expand_to_full_jacobian (SEXP grad)
//R_inspect(pos);
if (JACOBIAN_TYPE(pos) & SCALED_JACOBIAN) {
if (! JACOBIAN_TYPE(pos) & DIAGONAL_JACOBIAN) abort();
if (! (JACOBIAN_TYPE(pos) & DIAGONAL_JACOBIAN)) abort();
double *p = REAL(pos);
R_len_t pl = LENGTH(pos);
......
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