zoomout(I)

function R = zoomout(I)
  [i,j] = size(I);
  for row = 1 : uint16(i/2)
    for col = 1 : uint16(j/2)
      R(row, col) = I(row+row-1, col+col-1);
    end
  end
return