2012-04-23 13:36:37 +02:00
|
|
|
function [mean,variance] = GetPosteriorMeanVariance(M,drop)
|
2012-06-08 18:22:34 +02:00
|
|
|
|
2022-04-13 13:15:19 +02:00
|
|
|
% Copyright © 2012-2017 Dynare Team
|
2012-06-08 18:22:34 +02:00
|
|
|
%
|
|
|
|
% This file is part of Dynare.
|
|
|
|
%
|
|
|
|
% Dynare is free software: you can redistribute it and/or modify
|
|
|
|
% it under the terms of the GNU General Public License as published by
|
|
|
|
% the Free Software Foundation, either version 3 of the License, or
|
|
|
|
% (at your option) any later version.
|
|
|
|
%
|
|
|
|
% Dynare is distributed in the hope that it will be useful,
|
|
|
|
% but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
% GNU General Public License for more details.
|
|
|
|
%
|
|
|
|
% You should have received a copy of the GNU General Public License
|
2021-06-09 17:33:48 +02:00
|
|
|
% along with Dynare. If not, see <https://www.gnu.org/licenses/>.
|
2017-05-16 15:10:20 +02:00
|
|
|
|
|
|
|
MetropolisFolder = CheckPath('metropolis',M.dname);
|
|
|
|
FileName = M.fname;
|
|
|
|
BaseName = [MetropolisFolder filesep FileName];
|
|
|
|
load_last_mh_history_file(MetropolisFolder, FileName);
|
|
|
|
NbrDraws = sum(record.MhDraws(:,1));
|
|
|
|
NbrFiles = sum(record.MhDraws(:,2));
|
|
|
|
NbrBlocks = record.Nblck;
|
|
|
|
mean = 0;
|
|
|
|
variance = 0;
|
|
|
|
|
|
|
|
NbrKeptDraws = 0;
|
|
|
|
for i=1:NbrBlocks
|
|
|
|
NbrDrawsCurrentBlock = 0;
|
|
|
|
for j=1:NbrFiles
|
|
|
|
o = load([BaseName '_mh' int2str(j) '_blck' int2str(i),'.mat']);
|
|
|
|
NbrDrawsCurrentFile = size(o.x2,1);
|
|
|
|
if NbrDrawsCurrentBlock + NbrDrawsCurrentFile <= drop*NbrDraws
|
2016-10-03 22:36:25 +02:00
|
|
|
NbrDrawsCurrentBlock = NbrDrawsCurrentBlock + NbrDrawsCurrentFile;
|
2017-05-16 15:10:20 +02:00
|
|
|
continue
|
|
|
|
elseif NbrDrawsCurrentBlock < drop*NbrDraws
|
|
|
|
FirstDraw = ceil(drop*NbrDraws - NbrDrawsCurrentBlock + 1);
|
|
|
|
x2 = o.x2(FirstDraw:end,:);
|
|
|
|
else
|
|
|
|
x2 = o.x2;
|
2012-04-23 13:36:37 +02:00
|
|
|
end
|
2017-05-16 15:10:20 +02:00
|
|
|
NbrKeptDrawsCurrentFile = size(x2,1);
|
|
|
|
%recursively compute mean and variance
|
|
|
|
mean = (NbrKeptDraws*mean + sum(x2)')/(NbrKeptDraws+NbrKeptDrawsCurrentFile);
|
|
|
|
x2Demeaned = bsxfun(@minus,x2,mean');
|
|
|
|
variance = (NbrKeptDraws*variance + x2Demeaned'*x2Demeaned)/(NbrKeptDraws+NbrKeptDrawsCurrentFile);
|
|
|
|
NbrDrawsCurrentBlock = NbrDrawsCurrentBlock + NbrDrawsCurrentFile;
|
|
|
|
NbrKeptDraws = NbrKeptDraws + NbrKeptDrawsCurrentFile;
|
2012-04-23 13:36:37 +02:00
|
|
|
end
|
2017-05-16 15:10:20 +02:00
|
|
|
end
|