cachematrix.R

## Factory creates a list object containing getter and setter functions 
## for saveing and retrieving a matrix and its inverse in assocated working environment.


 makeCacheMatrix <- function(cachedData = matrix()) {
  
         cachedInverse <- NULL
         
         set <- function(data) {
                 cachedData <<- data  
                 cachedInverse <<- NULL
         }
         get <- function() cachedData   
         setInverse <- function(inverse) cachedInverse <<- inverse
         getInverse <- function() cachedInverse
         
         list(set = set, 
              get = get,
              setInverse = setInverse,
              getInverse = getInverse)
 }
 
 
 ## Returns the inverse of a matrix assocated with the working env of makeCacheMatrix instance.
 ## The inverse is calculated once the first time the function is called,
 ## subsequent calles return the cached inverse.
 
 cacheSolve <- function(funcList, ...) {
  ## Return a matrix that is the inverse of 'x'
         inverse <- funcList$getInverse()     
         if(!is.null(inverse)) {
                 message("getting cached data")
                 return(inverse)
         }
         inverse <- solve(funcList$get(), ...)   
         funcList$setInverse(inverse)
         inverse
 }
 
 ## Some test code

 data<-matrix(c(1,2,3,4),nrow=2,ncol=2)
 mv<-makeCacheMatrix()
 mv$set(data)
 cacheSolve(mv)
 mv$get()

 mv$getInverse()%*%mv$get()  ## should return diagonal maxtrix
 cacheSolve(mv)%*%mv$get()   ## should return diagonal maxtrix