The first R file of this project