Final assignment 4

R course Week 4 Assignment