%ISOBJIM test if the dataset contains objects that are images
%
%  N = ISOBJIM(A)
%      ISOBJIM(A)
%
% INPUT
%  A  input dataset
%
% OUTPUT
%  N  logical value
%
% DESCRIPTION
% True if dataset contains objects that are images. If no output is required,
% false outputs are turned into errors. This may be used for assertion.
%
% SEE ALSO
% ISDATASET, ISDATAIM

% $Id: isobjim.m,v 1.6 2003/08/08 08:16:03 piotr Exp $

function n = isobjim(a)

	prtrace(mfilename);
	
	n = isa(a,'dataset') & length(a.featsize) > 1;

	% generate error if input is not a dataset with image data with
   % pixels being features AND no output is requested (assertion)

	if nargout == 0 & n == 0
		error([newline '---- Dataset with object images expected -----'])
	end

return
