simple fine mapping script in R