Assignement completed : cahematrix.R completed