# \donttest{
# Run charisma on an image
img <- system.file("extdata", "Tangara_fastuosa_LACM60421.png",
package = "charisma")
result <- charisma(img)
# Summarize the color classification results
summary_table <- summarize(result)
print(summary_table)
# }
Run the code above in your browser using DataLab