Smooth the average spectrum
%% average and smooth calculation
table_aver = mean(table_1');
B = smoothdata(table_aver,'gaussian',5);
C = smoothdata(table_aver,'gaussian',10);
D = [ppm_1,C'];
writematrix(D,'1r','Delimiter','\t')
figure (2)
plot(ppm_1,C,ppm_1,table_aver')
legend('Small Window','Large Window')