sourcecodes/bnt-master/KPMtools/unaryEncoding.m


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

function U = unaryEncoding(data, K)
% unaryEncoding Encode data(s) as a 1-of-K column vector
% function U = unaryEncoding(data, K)
%
% eg.
% If data = [3 2 2] and K=3,
% then U = [0 0 0
%           0 1 1
%           1 0 0]

if nargin < 2, K = max(data); end
N = length(data);
U = zeros(K,N);
ndx = subv2ind([K N], [data(:)'; 1:N]');
U(ndx) = 1;
U = reshape(U, [K N]);