# NOT RUN {
if (webmorph_up()) {
# align and crop images
stimuli <- demo_unstandard(1:5) |>
align() |> crop_tem()
loop <- loop(stimuli, 5)
# create an animated gif
animate(loop, fps = 10)
}
# }
Run the code above in your browser using DataLab