R file for the first and second week