all the R scripts for my precip study