added r scripts and resulting plots