R script for analyzing the peel test DOE