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