## Not run:
# data(cryptomeria)
# img <- rgb2gray(cryptomeria)
# img.c <- crop(img,300,300)
# img.bin <- gray2bin(img.c, auto=FALSE, th=180)
# par(mfrow=c(2,2))
# test <- cc.label(img.bin, connect=8, img.show=TRUE)
# hist(test$summary$area,main="histogram of area")
# hist(test$summary$dX,main="histogram of dX")
# hist(test$summary$dY,main="histogram of dY")
# ## End(Not run)
Run the code above in your browser using DataLab