clear; clc;

cd data;
files = dir;
files = files(3 : end);
filenames = {files(:).name};
filenames = filenames(endsWith(filenames, '.csv'));

data_pool = cell(length(filenames), 2);
for i = 1 : length(filenames)
    [~, ~, raw] = xlsread(filenames{i});
    data_pool(i, :) = {filenames{i}(1 : 4), raw};
end
save('data', 'data_pool');