Substitute value just under 1 if R >= 1