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')