Changeset 28 for distools/genddat.m

Timestamp:

03/31/12 18:04:35 (13 years ago)

Author:

bduin

Message:

 

File:

• distools/genddat.m (modified) (1 diff)

distools/genddat.m

@@ -60 +60 @@
 function [DTR,DTE,Itr,Ite] = genddat(D,m,k);
 
+  if nargin < 3, k = []; end
+
+        % If input is a cell array of datasets, apply this procedure
+  % to the individual datasets.
+        if (iscell(D))
+                A  = cell(size(D));
+                B  = cell(size(D));
+                IA = cell(size(D));
+                IB = cell(size(D));
+                seed = randreset;
+                for j=1:length(D(:))
+                        randreset(seed);
+                        [DTR{j},DTE{j},Itr{j},Ite{j}] = feval(mfilename,D{j},m,k);
+                end
+                return;
+        end
+
+
+
 [n,nk,c] = getsize(D);
 nlab     = getnlab(D);
 discheck(D,[],1);   % allow for similarities     
 
-if nargin < 3, 
-        k = []; 
-else
+if ~isempty(k)
         if length(k) == 1
                 k = k*ones(1,c);