Updated after running from R console

Now the figure folder is generated