function arMergeFits
% useful if several workspaces e.g. from arFitClusterLHS with randomseed were
% saved
% load one workspace, run arMergeFits and check overall performance
% e.g. by arPlotChi2
global ar
% fileChooserMulti could be used instead
folders = dir('./Results');
for k = length(folders):-1:1
% remove non-folders
if ~folders(k).isdir
folders(k) = [ ];
continue
end
% remove folders starting with .
fname = folders(k).name;
if fname(1) == '.'
folders(k) = [ ];
end
end
filenames = {folders.name};
jcount = 0;
kcount = 1;
excount = 1;
for j=1:length(filenames)
fname = ['./Results/' filenames{j} '/workspace.mat'];
load(fname);
% tmpple.ar could be used instead
jcount = jcount + 1;
chi2send = kcount - 1 + length(ar.chi2s);
exitflagend = excount - 1 + length(ar.exitflag);
chi2s(kcount:chi2send) = ar.chi2s;
chi2sconstr(kcount:chi2send) = ar.chi2sconstr;
ps(kcount:chi2send,:) = ar.ps;
exitflag(excount:exitflagend) = ar.exitflag;
kcount = kcount + length(ar.chi2s);
excount = excount + length(ar.exitflag);
ar.chi2s = chi2s;
ar.ps = ps;
ar.chi2sconstr = chi2sconstr;
ar.exitflag = exitflag;
end