data = readtable("cal.txt")
k2 = -0.000966638;
data.k0 = calc_k0_ext(data.Vrse,data.T,data.S,data.pH_TRIS,k2)
writetable(data,'cal_k0_08262025.txt')

k0 = mean(data.k0(end-1:end)) % temperature is stable for the last two