some useful and random r scripts