Update GNP peak analysis.R