@@ -2,6 +2,10 @@
 ## functions do
 
 ## Write a short comment describing this function
+##This function gets gets a matrix a creates a list of functions
+##to set the value of the matrix, get the value of the matrix,
+## set the value of the inverse of the matrix and get the value
+##of the inverse of the matrix.
 
 makeCacheMatrix <- function(x = matrix()) {
         m <- NULL
@@ -19,6 +23,10 @@ makeCacheMatrix <- function(x = matrix()) {
 
 
 ## Write a short comment describing this function
+##This function calculates the inverse of the matrix created
+##in the function above. First looks if the inverse has been already calculated 
+##to get the result from cache. If not, then calculates the inverse of the matrix
+##using the setinverse function.
 
 cacheSolve <- function(x, ...) {
         ## Return a matrix that is the inverse of 'x'