You can write the image to jpg and adjust the 'Quality' between 0 and 100 to reduce the size (lossy compression):
imwrite(I, 'myimage.jpg', 'Quality', 50)
or you could try one of the various image formats supported by imwrite and see if the size is smaller.