R script - Figshare