de857369edab4a7076e0bdacae4778263ad585e0
Christoph Budziszewski subject list from filesyste...

Christoph Budziszewski authored 15 years ago

1) function imageMask = imageMaskNames(subjectDir)
2) 
Christoph Budziszewski SPM2 compatibilität begonnen

Christoph Budziszewski authored 14 years ago

3) switch getSPMVersion
4)     case 'SPM5'
5)         filter = '^.*\.hdr$';
6)         [files, dirs] = spm_select('List', fullfile(subjectDir,'a'), filter);
Christoph Budziszewski almost all "change study" f...

Christoph Budziszewski authored 14 years ago

7)     case 'SPM2x'
8)         files = 'swrfandersen-0003-00001-000001.hdr';
Christoph Budziszewski SPM2 compatibilität begonnen

Christoph Budziszewski authored 14 years ago

9)     otherwise
10)         filter = '^.*\.hdr$';
11)         files = getFilteredFileList(fullfile(subjectDir,'a'),filter,0);
12) end
Christoph Budziszewski subject list from filesyste...

Christoph Budziszewski authored 15 years ago

13) 
Christoph Budziszewski SPM2 compatibilität begonnen

Christoph Budziszewski authored 14 years ago

14) for i = 1:size(files,1)
Christoph Budziszewski subject list from filesyste...

Christoph Budziszewski authored 15 years ago

15) %     rfiles = regexpi(files(i,:),'^.*.-','match')
16)     files(i,:);
17)     token{i} = strtok(files(i,:),'-');
18) end
19) 
20) imageMask = unique(token);
21)