Create GNP peak analysis.R