2005-09-10 12:04:22 +02:00
|
|
|
function Draws = GetAllPosteriorDraws(column,FirstMhFile,FirstLine,TotalNumberOfMhFile,NumberOfDraws)
|
2008-01-17 14:18:20 +01:00
|
|
|
|
|
|
|
% function Draws = GetAllPosteriorDraws(column,FirstMhFile,FirstLine,TotalNumberOfMhFile,NumberOfDraws)
|
|
|
|
% Gets all posterior draws
|
|
|
|
%
|
|
|
|
% INPUTS
|
|
|
|
% column: column
|
|
|
|
% FirstMhFile: first mh file
|
|
|
|
% FirstLine: first line
|
|
|
|
% TotalNumberOfMhFile: total number of mh file
|
|
|
|
% NumberOfDraws: number of draws
|
|
|
|
|
|
|
|
% OUTPUTS
|
|
|
|
% Draws: draws from posterior distribution
|
|
|
|
%
|
|
|
|
% SPECIAL REQUIREMENTS
|
|
|
|
% none
|
|
|
|
%
|
|
|
|
% part of DYNARE, copyright Dynare Team (2005-2008)
|
|
|
|
% Gnu Public License.
|
|
|
|
|
2005-09-10 12:04:22 +02:00
|
|
|
global M_ options_
|
|
|
|
|
|
|
|
nblck = options_.mh_nblck;
|
|
|
|
iline = FirstLine;
|
|
|
|
linee = 1;
|
|
|
|
DirectoryName = CheckPath('metropolis');
|
|
|
|
Draws = zeros(NumberOfDraws*nblck,1);
|
2006-05-04 10:52:43 +02:00
|
|
|
logpo = zeros(NumberOfDraws*nblck,1);
|
|
|
|
ipost=0;
|
2006-11-27 15:24:29 +01:00
|
|
|
if column<=0,
|
2006-05-04 10:52:43 +02:00
|
|
|
column=1;
|
|
|
|
ipost=1;
|
|
|
|
end
|
2006-11-27 15:24:29 +01:00
|
|
|
iline0=iline;
|
|
|
|
for blck = 1:nblck
|
|
|
|
iline=iline0;
|
|
|
|
for file = FirstMhFile:TotalNumberOfMhFile
|
2006-05-04 10:52:43 +02:00
|
|
|
load([DirectoryName '/' M_.fname '_mh' int2str(file) '_blck' int2str(blck)],'x2','logpo2')
|
2005-09-10 12:04:22 +02:00
|
|
|
NumberOfLines = size(x2(iline:end,:),1);
|
|
|
|
Draws(linee:linee+NumberOfLines-1) = x2(iline:end,column);
|
2006-05-04 10:52:43 +02:00
|
|
|
logpo(linee:linee+NumberOfLines-1) = logpo2(iline:end);
|
2005-09-10 12:04:22 +02:00
|
|
|
linee = linee+NumberOfLines;
|
2006-11-27 15:24:29 +01:00
|
|
|
iline = 1;
|
2005-09-10 12:04:22 +02:00
|
|
|
end
|
2006-05-04 10:52:43 +02:00
|
|
|
end
|
|
|
|
|
|
|
|
if ipost,
|
|
|
|
Draws=logpo;
|
2005-09-10 12:04:22 +02:00
|
|
|
end
|