Update r

done