Final submission

source("cachematrix.R")
# Testing the cached item are returned the second time the function is
called
x<-matrix(c(1,18,3,4),nrow=2,ncol=2,byrow=TRUE)
y<-matrix(c(1,2,3,4),nrow=2,ncol=2,byrow=TRUE)
## First time the solve function is called
InvertMatrix(x)
InvertMatrix(y)
## The second time the invert matrix is taken directly from the cache
InvertMatrix(x)
InvertMatrix(y)