Added first version of r scripts and plots