2nd hometask for R Programming