R = dlmread('retail.dat');
top_p = 100;   % first 20 products
top_n = 88162;  % first 200 baskets

m = size(R, 2);
X = sparse(top_n, top_p);
for i = 1:top_n
    j = 1; % anzahl von element die nicht Null sind
    % R(i,j) <= R(i,min(j+1,m) -> aktueller Wert kleiner als nächster
    % irgendwann kommen nur noch Nullen
    while j <= m && R(i,j) <= R(i,min(j+1,m)) && R(i,j) < top_p
        j = j + 1;
    end
    % Index fängt bei Null an -> + 1
    % setzte alle auf 1 die in R stehen R(i,1:j-1)
    X(i,R(i,1:j-1)+1) = 1;
end

[L,s] = apriori(X, 0.01);
