# NOT RUN {
# slideshow of images (1/second)
demo_stim() |> animate()
# rotate a face
degrees <- seq(0, 350, 10)
demo_stim(1) |>
mask() |>
rep(length(degrees)) |>
rotate(degrees) |>
animate(fps = 10)
# }
Run the code above in your browser using DataLab