my r scripts for proteomics