Short R scripts for public reference