|
Last change
on this file since 95 was
64,
checked in by dtax, 11 years ago
|
|
Force it to be a MIL dataset.
|
|
File size:
508 bytes
|
| Line | |
|---|
| 1 | % b = makemillabeld(a,classnr) |
|---|
| 2 | % |
|---|
| 3 | % Make the current labels the positive MIL class. |
|---|
| 4 | function b = makemillabeld(a,classnr) |
|---|
| 5 | |
|---|
| 6 | if nargin<2 |
|---|
| 7 | classnr = []; |
|---|
| 8 | end |
|---|
| 9 | |
|---|
| 10 | llnames = getlablistnames(a); |
|---|
| 11 | if ~isempty(classnr) |
|---|
| 12 | a = changelablist(a,classnr); |
|---|
| 13 | a = setname(a,strtrim(llnames(curlablist(a),:))); |
|---|
| 14 | end |
|---|
| 15 | |
|---|
| 16 | if isempty(strmatch('millab',llnames)) |
|---|
| 17 | b = addlabels(a,getlab(a),'millab'); |
|---|
| 18 | else |
|---|
| 19 | lab = getlab(a); |
|---|
| 20 | [thisnr,thisname] = curlablist(a); |
|---|
| 21 | a = changelablist(a,'millab'); |
|---|
| 22 | b = setlabels(a,lab); |
|---|
| 23 | end |
|---|
| 24 | |
|---|
| 25 | |
|---|
| 26 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
