data = SpecimenRawData1; %polyeth slow
data = table2array(data);
A = 12.62 * 3.33 * 10^-6; %m^2

time = data(35:end,1);
strain = (data(1:6225,4)); %unitless
stress = data(1:6225,3)./(A * 10^6); %GPa

[YS p] = max(stress)
UTS = stress(end) %GPa
eYS = strain(p)
eUTS = strain(end) %GPa
preE = polyfit(strain(1:4), stress(1:4),1);
E = preE(1)
duct = strain(end) - stress(end)/E

plot(strain,stress*10^3), xlabel('\epsilon_{E}'), ylabel('\sigma_{E} (MPa)'), title('Stress Strain Curve of Polyethylene for $\dot{\epsilon}$ = .05/min', 'Interpreter','latex');