adding day 1 and day 2 R files