add spplotGIF.R