-
Notifications
You must be signed in to change notification settings - Fork 0
/
itr_mkLTSA.m
56 lines (49 loc) · 1.98 KB
/
itr_mkLTSA.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
% itr_mkLTSA.m
% Iterates over a directory of TPWS files and calls mkLTSAsessions for each
% one.
clearvars
clear global
filePrefix = '2017_LowIsland'; % File name to match.
% File prefix should include deployment, site, (disk is optional).
% Example:
% File name 'GofMX_DT01_disk01-08_TPWS2.mat'
% -> filePrefix = 'GofMX_DT01'
% or -> filePrefix ='GOM_DT_09' (for files names with GOM)
sp = 'Narwhal'; % your species code
itnum = '2'; % which iteration you are looking for
srate = 192; % sample rate
LTSApath = 'E:\Data\Kelby\LTSA2017'; % directory containing all LTSAs for this deployment
% LTSA folder should match the site specified in prefix
tpwsPath = 'E:\Data\Kelby'; %directory of TPWS files
%tfName = 'E:\TF_files'; % Directory ...
% with .tf files (directory containing folders with different series ...
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% define subfolder that fit specified iteration
% if itnum > 1
% for id = 2: str2num(itnum); % iternate id times according to itnum
% subfolder = ['TPWS',num2str(id)];
% tpwsPath = (fullfile(tpwsPath,subfolder));
% end
% end
% Find all TPWS files that fit your specifications (does not look in subdirectories)
% Concatenate parts of file name
if isempty(sp)
detfn = [filePrefix,'.*','TPWS',itnum,'.mat'];
else
detfn = [filePrefix,'.*',sp,'.*TPWS',itnum,'.mat'];
end
% Get a list of all the files in the start directory
fileList = cellstr(ls(tpwsPath));
% Find the file name that matches the filePrefix
fileMatchIdx = find(~cellfun(@isempty,regexp(fileList,detfn))>0);
if isempty(fileMatchIdx)
% if no matches, throw error
error('No files matching filePrefix found!')
end
% for each TPWS file found, make LTSA.mat file
for iD = 1:length(fileMatchIdx);
matchingFile = fileList{fileMatchIdx(iD)};
detfn = dir(fullfile(tpwsPath,matchingFile));
mkLTSAsessions('filePrefix', filePrefix, 'detfn',detfn.name,...
'sp', sp, 'lpn', LTSApath, 'sdir', tpwsPath,'srate',srate)
end