2005-09-10 12:04:22 +02:00
|
|
|
function Draws = GetAllPosteriorDraws(column,FirstMhFile,FirstLine,TotalNumberOfMhFile,NumberOfDraws)
|
|
|
|
% stephane.adjemian@ens.fr [09-09-2005]
|
|
|
|
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
|