your_folder = '.';
output_file_name = './master_averages.csv';
output_var_names = {'Start_Time','End_Time','I_avg','K_avg'};
S = dir(fullfile(your_folder,'*.xlsx'));
ffn = fullfile({S.folder},{S.name});
cols = [9 11]; % I'm assuming all files have the same column order
T_new = cell(1,numel(ffn));
for jj = 1:numel(ffn)
T = readtable(ffn{jj},'VariableNamingRule','preserve');
event_rows = find(strcmp(T{:,2},'h'));
N_events = numel(event_rows);
event_rows(end+1) = size(T,1)+1;
data = NaN(N_events,4);
for ii = 1:N_events
data(ii,:) = [T{event_rows(ii+[0 1])+[0;-1],1}.' ...
mean(T{event_rows(ii):event_rows(ii+1)-1,cols},1)];
end
T_new{jj} = array2table(data,'VariableNames',output_var_names);
[~,fn,ext] = fileparts(ffn{jj});
T_new{jj}.file = repmat({[fn ext]},size(T_new{jj},1),1);
T_new{jj} = T_new{jj}(:,[end 1:end-1]);
end
T_new = vertcat(T_new{:});
writetable(T_new,output_file_name);
% check
disp(readtable(output_file_name))
