aboutsummaryrefslogtreecommitdiff
path: root/src/lmm.cpp
diff options
context:
space:
mode:
authorPjotr Prins2021-08-22 11:48:43 +0200
committerPjotr Prins2021-08-22 11:48:43 +0200
commit71553f5e5626e1d791b5be24c84ea6b17ae81cc7 (patch)
tree201e750375f54a62a05caf2daab92f72b34dce7a /src/lmm.cpp
parentfa4f185e25122a9613d11249b1f62f64ea9edc0b (diff)
downloadpangemma-71553f5e5626e1d791b5be24c84ea6b17ae81cc7.tar.gz
Disable round-off correction
Diffstat (limited to 'src/lmm.cpp')
-rw-r--r--src/lmm.cpp2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lmm.cpp b/src/lmm.cpp
index 2055c45..cc2bd33 100644
--- a/src/lmm.cpp
+++ b/src/lmm.cpp
@@ -846,7 +846,7 @@ double LogRL_f(double l, void *params) {
}
index_ww = GetabIndex(n_cvt + 2, n_cvt + 2, n_cvt);
double P_yy = gsl_matrix_safe_get(Pab, nc_total, index_ww);
- if (P_yy < 0.00000001) P_yy = 0.00000001;
+ // if (P_yy > 0.0 && P_yy < 0.00000001) P_yy = 0.00000001; // control potential round-off
double c = 0.5 * df * (safe_log(df) - safe_log(2 * M_PI) - 1.0);
f = c - 0.5 * logdet_h - 0.5 * logdet_hiw - 0.5 * df * safe_log(P_yy);