mona <- ocv_read('https://jeroen.github.io/images/monalisa.jpg')
mona <- ocv_resize(mona, width = 320, height = 477)
# FAST-9
pts <- ocv_keypoints(mona, method = "FAST", type = "TYPE_9_16", threshold = 40)
# Harris
pts <- ocv_keypoints(mona, method = "Harris", maxCorners = 50)
# Convex Hull of points
pts <- ocv_chull(pts)
# \dontshow{
ocv_destroy(mona)
# }
Run the code above in your browser using DataLab