if(interactive()){
library(pliman)
img <- image_pliman("sev_leaf.jpg")
rgb_to_lab(img)
# analyze the object and convert the pixels
anal <- analyze_objects(img, object_index = "B", pixel_level_index = TRUE)
rgb_to_lab(anal)
}
Run the code above in your browser using DataLab