R+ PhotoScape

Using R & PhotoScape to draw a sin curve animation

R code:
for (i in 1:30){
x=seq(-5*pi+i-1.6,-3*pi+i-1.6,by=.02)
y=sin(x)
png(paste0(i,".png"),width=640,height = 400)
plot(x,y,xlim=c(-3*pi,3*pi),type="l" ,ann=F)
abline(h=0)
dev.off()
}

for(i in 1:30) file.copy(from=paste0(getwd(),"/",i,".png"),to=paste0(getwd(),"/",61-i,".png"))

Using PhotoScape to make animation