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