Added a new working file (working2.R)