res_objectDetection <- objectDetection(
beads,
method = 'edge',
alpha = 1,
sigma = 0
)
res_sizeFilter <- sizeFilter(
centers = res_objectDetection$centers,
coordinates = res_objectDetection$coordinates,
lowerlimit = 50, upperlimit = 150
)
changePixelColor(
beads,
res_sizeFilter$coordinates,
color = "darkgreen",
visualize = TRUE
)
Run the code above in your browser using DataLab