# \donttest{
dino_dir <- system.file("extdata", package = "stopmotion")
images <- read(dir = dino_dir)
scale(images = images, geometry = "50%")
scale(images = images, geometry = "50%", frames = 2:3)
# }
Run the code above in your browser using DataLab