# NOT RUN {
papilio <- getimg(system.file("testdata/images/papilio.png", package = 'pavo'))
papilio_class <- classify(papilio, kcols = 4)
summary(papilio_class)
# Plot the colour-classified image alongside the colour class palette
summary(papilio_class, plot = TRUE)
# Multiple images
snakes <- getimg(system.file("testdata/images/snakes", package = 'pavo'))
snakes_class <- classify(snakes, kcols = 3)
summary(snakes_class, plot = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab