# NOT RUN {
# }
# NOT RUN {
tmp <- anim.plot(1:10, 1:10, pch=1:10, show=FALSE)
anim.save(tmp, "mygif.gif")
anim.save(replay(tmp, after=legend("topleft", legend="My legend")),
"mygif2.gif")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab