# NOT RUN {
accel <- anim.plot(1, 1:30, times=sqrt(1:30))
# }
# NOT RUN {
anim.save(accel, "GIF", "wrong.gif")
# }
# NOT RUN {
accel <- anim.smooth(accel, fps=20)
# }
# NOT RUN {
anim.save(accel, "GIF", "better.gif")
# }
Run the code above in your browser using DataCamp Workspace