# The drawing code is fairly slow, so this animation works best with a
# limited number of cases
flea_s <- rescale(flea[,1:6])
animate_faces(flea_s[1:2, 1:6])
animate_faces(flea_s[1:4, 1:6])
animate_faces(flea_s[1:2, 1:6], grand_tour(5))
Run the code above in your browser using DataLab