Second R-Script

Adding the second lecture R-script to the repository