Upload initial.R and update 3 R files