# \donttest{
im=read_image(example_image(3),plot=TRUE)
r=gray_scale(im,method = "r")
seg=segmentation(img.band = r,threshold = 0.3,selectHigher = FALSE,fillHull = FALSE,plot = TRUE)
summary_color(im,seg,return = "image")
summary_color(im,seg,return = "summary")
summary_color(im,seg,return = "histogram1")
summary_color(im,seg,return = "histogram2")
summary_color(im,seg,return = "histogram3")
# }
Run the code above in your browser using DataLab