upload 3 additional R scripts for the plots