...just my R scripts for PhD