R scripts for figures