Author: Frank Lu Function name: sharpen

Detects and enhances the edges in the image and returns a sharpened and monotoned version (the same size as the original).

sharpen(img)

Arguments

img	array input image

Value

array sharpened monotone image

Examples

old_img <- array(rep(c(0.5), 100 * 100 * 3), dim = c(100, 100, 3))
new_img <- sharpen(old_img)