Added comments. Didn't think they were necessary, but noticed they were part of the assessment. Oh well.

Author: Adrian Quek

cachematrix.R

@@ -4,6 +4,11 @@
 ## Write a short comment describing this function
 
 makeCacheMatrix <- function(x = matrix()) {
+    # returns a list of functions for:
+    # - setting the matrix x
+    # - getting the matrix x
+    # - setting the inverse of the matrix x (s)
+    # - getting the inverse of the matrix x
     s <- NULL
     set <- function(y) {
             x <<- y
@@ -24,10 +29,12 @@ makeCacheMatrix <- function(x = matrix()) {
 cacheSolve <- function(x, ...) {
     ## Return a matrix that is the inverse of 'x'
     s <- x$getinverse()
+    # return cached inverse if it exists
     if(!is.null(s)){
         message("getting cached inverse")
         return(s)
     }
+    # otherwise call solve to get the inverse and set it
     data <- x$get()
     s <- solve(data, ...)
     x$setinverse(s)