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