Added source Matlab code for reference

matlab/parallel/compare.m

@@ -0,0 +1,81 @@
+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});
+
+
+
+
+
+
+    
+