forked from gcyuan/SCUBA
-
Notifications
You must be signed in to change notification settings - Fork 0
/
initialization.m
35 lines (26 loc) · 1.19 KB
/
initialization.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
function [dataFile processDataMat processDataTxt PCAdataFile dataFolder resultsDir intermediate_filesDir figuresDir] = initialization(dataset);
% set path of data files
dataFolder = fullfile(pwd,'sample_data',dataset);
% save('dataFolder.mat','dataFolder');
% Alternatively, uncomment the following line and select interactively
% [dataFile dataFolder] = setDataFile;
% Set the results folder variable
resultsDir = fullfile(dataFolder,'results');
intermediate_filesDir = fullfile(dataFolder,'intermediate_files');
figuresDir = fullfile(dataFolder,'figures');
% Create results folder in data folder if not previously present
createSubfolders(dataFolder)
createSubfolders(resultsDir)
createSubfolders(intermediate_filesDir)
createSubfolders(figuresDir)
dataFile = fullfile(dataFolder, [dataset, 'Data.txt']);
processDataMat = fullfile(intermediate_filesDir, [dataset 'PData.mat']);
processDataTxt = fullfile(intermediate_filesDir, [dataset 'PData.txt']);
PCAdataFile = fullfile(intermediate_filesDir, [dataset, 'PDataPCA.mat']);
end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function createSubfolders(dataFolder)
if ~exist(fullfile(dataFolder),'dir')
mkdir(dataFolder)
end
end