2017-10-05 14:19:24 +02:00
|
|
|
function [r,g1,g2,g3] = evaluate_model(z,x,M,ss)
|
|
|
|
|
|
|
|
ll = M.lead_lag_incidence';
|
|
|
|
y = z(find(ll(:)));
|
|
|
|
|
|
|
|
switch nargout
|
|
|
|
case 1
|
2018-06-27 17:02:13 +02:00
|
|
|
r = feval([M.fname '.dynamic'],y,x, ...
|
2017-10-05 14:19:24 +02:00
|
|
|
M.params, ss, 1);
|
|
|
|
case 2
|
2018-06-27 17:02:13 +02:00
|
|
|
[r,g1] = feval([M.fname '.dynamic'],y,x, ...
|
2019-12-20 16:28:06 +01:00
|
|
|
M.params, ss, 1);
|
2017-10-05 14:19:24 +02:00
|
|
|
case 3
|
2018-06-27 17:02:13 +02:00
|
|
|
[r,g1,g2] = feval([M.fname '.dynamic'],y,x, ...
|
2019-12-20 16:28:06 +01:00
|
|
|
M.params, ss, 1);
|
2017-10-05 14:19:24 +02:00
|
|
|
case 4
|
2018-06-27 17:02:13 +02:00
|
|
|
[r,g1,g2,g3] = feval([M.fname '.dynamic'],y,x, ...
|
2017-10-05 14:19:24 +02:00
|
|
|
M.params, ss, 1);
|
|
|
|
end
|