r script to make clt animated gifs