Line | |
---|
1 | function [m, inc] = remove_invalid_inc_els(M, INC, r) |
---|
2 | % Take subset of M and INC which have all rows and columns with at least r elements. |
---|
3 | valid_cols = find(sum(INC)>r); |
---|
4 | valid_rows = find(sum(INC')>r); |
---|
5 | while (size(valid_cols,2) < size(INC,2) | size(valid_rows,2) < size(INC,1)) |
---|
6 | M = M(valid_rows,valid_cols); |
---|
7 | INC = INC(valid_rows,valid_cols); |
---|
8 | valid_cols = find(sum(INC)>r); |
---|
9 | valid_rows = find(sum(INC')>r); |
---|
10 | end |
---|
11 | m=M; |
---|
12 | inc=INC; |
---|
Note: See
TracBrowser
for help on using the repository browser.