Daniel@0: function [hits,ninvalid] = hits(bmus, mmax, values)
Daniel@0: 
Daniel@0: %HITS Calculate number of occurances of each value.
Daniel@0: %
Daniel@0: % hits = hits(bmus,[mmax],[values])
Daniel@0: %
Daniel@0: %   h = hits(bmus);
Daniel@0: %   h = hits(bmus,length(sM.codebook)); 
Daniel@0: %
Daniel@0: %  Input and output arguments ([]'s are optional): 
Daniel@0: %   bmus     (vector) BMU indeces (or other similar) 
Daniel@0: %   [mmax]   (scalar) maximum index, default value max(bmus)
Daniel@0: %            (struct) map or topology struct from where the maximum
Daniel@0: %                     index is acquired
Daniel@0: %   [values] (vector) values associated with the data (default = 1)
Daniel@0: %
Daniel@0: %   hits     (vector) the number of occurances of each index
Daniel@0: %                     (or if values are given, their sum for each index)
Daniel@0: %   ninvalid (scalar) number of invalid indeces (NaN, Inf or 
Daniel@0: %                     <=0 or > mmax)
Daniel@0: %
Daniel@0: % See also SOM_HITS, SOM_BMUS.    
Daniel@0: 
Daniel@0: % Copyright (c) 2002 by the SOM toolbox programming team.
Daniel@0: % Contributed to SOM Toolbox by Juha Vesanto, April 24th, 2002
Daniel@0: % http://www.cis.hut.fi/projects/somtoolbox/
Daniel@0: 
Daniel@0: % Version 2.0beta juuso 240402
Daniel@0: 
Daniel@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Daniel@0: 
Daniel@0: if nargin<2 | isempty(mmax), 
Daniel@0:   mmax = max(bmus);
Daniel@0: elseif isstruct(mmax), 
Daniel@0:   switch mmax.type, 
Daniel@0:    case 'som_map',   mmax = prod(mmax.topol.msize);
Daniel@0:    case 'som_topol', mmax = prod(mmax.msize);
Daniel@0:    otherwise, 
Daniel@0:     error('Illegal struct for 2nd argument.')
Daniel@0:   end
Daniel@0: end
Daniel@0: 
Daniel@0: if nargin<3, values = 1; end
Daniel@0: 
Daniel@0: valid_bmus = find(isfinite(bmus) & bmus>0 & bmus<=mmax); 
Daniel@0: ninvalid = length(bmus)-length(valid_bmus); 
Daniel@0: 
Daniel@0: bmus = bmus(valid_bmus); 
Daniel@0: if length(values)>length(bmus), values = values(valid_bmus); end
Daniel@0: hits = full(sum(sparse(bmus,1:length(bmus),values,mmax,length(bmus)),2));
Daniel@0: 
Daniel@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Daniel@0: