Update r in updateUVApprox
tidy up