Update R.rs

Using XorShiftRng