Interesting R reusable scrips