A collection of random r scripts