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