# NOT RUN {
dots <- image(system.file("sample_img/dots.jpg", package = "Rvision"))
bw <- inRange(dots, 0, 250)
medianBlur(bw, target = "self")
sure_bg <- morph(bw, "dilate", k_shape = "ellipse", iterations = 3)
dt <- distanceTransform(bw, "L2")
sure_fg <- dt > 20
unknown <- sure_bg - sure_fg
markers <- connectedComponents(sure_fg, table = FALSE)$labels + 1
markers <- markers * (invert(unknown) / 255)
watershed(dots, markers)
# }
Run the code above in your browser using DataLab