Sample change in the r code