New file numsubpeptides.R