function n=getnbatch(data)
% try to guess number of batches of mcmc data



if isnumeric(data)
  n = 1;
elseif iscell(data)
  n = length(data);
elseif isstruct(data)
  if isfield(data,'ydata')
    if iscell(data.ydata)
      n = length(data.ydata);
    else
      n = 1;
    end
  else
    n = [];
  end
else
  n = [];
end
Error using getnbatch (line 6)
Not enough input arguments.