From 801baacc8c7b0cd065ba1a27ec7569dc71539933 Mon Sep 17 00:00:00 2001 From: Johannes Pfeifer <jpfeifer@gmx.de> Date: Fri, 18 Nov 2022 22:04:58 +0100 Subject: [PATCH] fs2000_smoother_only_ns.mod: check for correctness of smoothed observables Related to 178e892e --- .../fs2000_smoother_only_ns.mod | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/tests/kalman_filter_smoother/fs2000_smoother_only_ns.mod b/tests/kalman_filter_smoother/fs2000_smoother_only_ns.mod index 59e1980f5f..5c49531bd8 100644 --- a/tests/kalman_filter_smoother/fs2000_smoother_only_ns.mod +++ b/tests/kalman_filter_smoother/fs2000_smoother_only_ns.mod @@ -107,9 +107,24 @@ P_obs (log(mst)-gam); Y_obs (gam); end; +fsdat_simul; +P_obs_data=log(P_obs(1:192)); +Y_obs_data=log(Y_obs(1:192)); + estimation(order=1, datafile=fsdat_simul, mode_compute=0,nobs=192, loglinear,diffuse_filter, smoother,smoothed_state_uncertainty) m P c e W R k d n l gy_obs gp_obs y dA; +if max(abs(oo_.SmoothedVariables.Y_obs-Y_obs_data))>1e-10 || max(abs(oo_.SmoothedVariables.P_obs-P_obs_data))>1e-10 + error('Smoothed observables do not match') +end estimation(order=1, datafile=fsdat_simul, mode_compute=0,nobs=192, loglinear,diffuse_filter, smoother,kalman_algo=3,smoothed_state_uncertainty) m P c e W R k d n l gy_obs gp_obs y dA; +if max(abs(oo_.SmoothedVariables.Y_obs-Y_obs_data))>1e-10 || max(abs(oo_.SmoothedVariables.P_obs-P_obs_data))>1e-10 + error('Smoothed observables do not match') +end estimation(order=1, datafile=fsdat_simul, mode_compute=0,nobs=192, loglinear,diffuse_filter, smoother,kalman_algo=4,smoothed_state_uncertainty) m P c e W R k d n l gy_obs gp_obs y dA; +if max(abs(oo_.SmoothedVariables.Y_obs-Y_obs_data))>1e-10 || max(abs(oo_.SmoothedVariables.P_obs-P_obs_data))>1e-10 + error('Smoothed observables do not match') +end + + /* * The following lines were used to generate the data file. If you want to -- GitLab