R Programming Week2 Assignment - Georg Schukat #1