Code for my R project