course project R file