# NOT RUN {
# Single image
papilio <- getimg(system.file("testdata/images/papilio.png", package = "pavo"))
papilio <- procimg(papilio, scaledist = 10)
# Assign individual scales to each image, after slightly reducing their size.
snakes <- getimg(system.file("testdata/images/snakes", package = "pavo"))
snakes <- procimg(snakes, scaledist = c(10, 14), resize = 90)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab