project r code