wolffd@0: function U = unaryEncoding(data, K)
wolffd@0: % unaryEncoding Encode data(s) as a 1-of-K column vector
wolffd@0: % function U = unaryEncoding(data, K)
wolffd@0: %
wolffd@0: % eg.
wolffd@0: % If data = [3 2 2] and K=3,
wolffd@0: % then U = [0 0 0
wolffd@0: %           0 1 1
wolffd@0: %           1 0 0]
wolffd@0: 
wolffd@0: if nargin < 2, K = max(data); end
wolffd@0: N = length(data);
wolffd@0: U = zeros(K,N);
wolffd@0: ndx = subv2ind([K N], [data(:)'; 1:N]');
wolffd@0: U(ndx) = 1;
wolffd@0: U = reshape(U, [K N]);