Create Cusum-pistonrings.R