How to make R close to the identity

Hi everyone..

Is there any idea how I can make the matrix R in qr factorisation close to the identity?

Here is my attempt for a random matrix, the norm I got is somthing close to 1:(

  A = complex(rand(3,3),rand(3,3))
    [q,r]=qr(A)
    dr = diag(sign(diag(r)))
    qu = q*dr
    ru = dr'*r
    normru=norm(ru-eye(3,3))