82 lines
2.1 KiB
Mathematica
82 lines
2.1 KiB
Mathematica
|
function compare(varargin)
|
||
|
|
% COMPARE compares the results from multiple runs.
|
||
|
|
% input: is a group of result .mat files on the same data.
|
||
|
|
|
||
|
|
% Example: compare('e:\data\result1.mat','e:\data\result2.mat',...)
|
||
|
|
% or call it from the BAPS menu.
|
||
|
|
|
||
|
|
if nargin == 1
|
||
|
|
error('number of input arguments must be >=2');
|
||
|
|
end
|
||
|
|
|
||
|
|
if nargin == 0
|
||
|
|
out = uipickfiles('FilterSpec','*.mat',...
|
||
|
|
'Prompt','Select mixture results: be sure that the underlying data and models are consistent.');
|
||
|
|
if isnumeric(out)
|
||
|
|
return
|
||
|
|
end
|
||
|
|
nfiles = length(out);
|
||
|
|
filesin = out;
|
||
|
|
|
||
|
|
else
|
||
|
|
nfiles = nargin;
|
||
|
|
filesin = varargin;
|
||
|
|
end
|
||
|
|
|
||
|
|
display('---------------------------------------------------');
|
||
|
|
fprintf(1,'Comparing results ...\n');
|
||
|
|
if nfiles == 1
|
||
|
|
disp('*** ERROR: Too few files.');
|
||
|
|
return
|
||
|
|
end
|
||
|
|
for i = 1:nfiles
|
||
|
|
struct_array = load(filesin{i});
|
||
|
|
if isfield(struct_array,'c') %Matlab versio
|
||
|
|
c = struct_array.c;
|
||
|
|
clear struct_array;
|
||
|
|
if ~isfield(c,'PARTITION') || ~isfield(c,'rowsFromInd') || strcmp(c.mixtureType,'admix')
|
||
|
|
fprintf(1,'*** ERROR: Incorrect mixture result in file %d\n',i );
|
||
|
|
return
|
||
|
|
end
|
||
|
|
elseif isfield(struct_array,'PARTITION') %Mideva versio
|
||
|
|
c = struct_array;
|
||
|
|
if ~isfield(c,'rowsFromInd')
|
||
|
|
fprintf(1,'*** ERROR: Incorrect mixture result in file %d\n',i );
|
||
|
|
return
|
||
|
|
end
|
||
|
|
else
|
||
|
|
fprintf(1,'*** ERROR: Incorrect mixture result in file %d\n',i );
|
||
|
|
return;
|
||
|
|
end
|
||
|
|
|
||
|
|
try
|
||
|
|
partitionMat(i,:) = sort_partition(c.PARTITION);
|
||
|
|
catch
|
||
|
|
error('*** ERROR: inconsistent results.');
|
||
|
|
end
|
||
|
|
mixtureType{i} = c.mixtureType;
|
||
|
|
logml(i) = c.logml;
|
||
|
|
clear c;
|
||
|
|
end
|
||
|
|
|
||
|
|
len_mixture = length(mixtureType{1});
|
||
|
|
for i = 2:nfiles
|
||
|
|
if len_mixture ~= length(mixtureType{i});
|
||
|
|
error('*** ERROR: inconsistent mixture types.');
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
% Find the best partition
|
||
|
|
best = logical(logml == max(logml));
|
||
|
|
[uniquepartition, ind1, ind2] = unique(partitionMat(best,:), 'rows');
|
||
|
|
fprintf(1,'Best partition was found at ''%s''\n',filesin{best});
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|