x = readImage(system.file('images', 'cells.tif', package='EBImage'))
hist(x)
y = equalize(x)
hist(y)
display(y, title='Equalized Grayscale Image')
x = readImage(system.file('images', 'sample-color.png', package='EBImage'))
hist(x)
y = equalize(x)
hist(y)
display(y, title='Equalized Grayscale Image')
Run the code above in your browser using DataLab