# NOT RUN {
# First, get a matrix from your image. Here an example of a bush image is used.
bush<-system.file("extdata/bush.JPG",package ="bwimage")
bush_imagematrix<-threshold_color(bush, "jpeg", "proportional", compress_rate = 0.1)
# Profile of highest black pixels on sections of the bush image matrix
altitudinal_profile(bush_imagematrix,n_sections = 10, height_size=100)
# Conclusions:
# i) the mean height of the highest black pixel is 45.28 cm.
# ii) standard deviation of highest black height is 21.54.
# }
Run the code above in your browser using DataLab