Short and useful R scripts