added r scripts and graphs