3rd R-Script

Adding the third lecture R-script to the repository