Create sb_animation.R