Edit rdpeng#4

fixed vote number typo in get_senate_vote function spec

Example test run,

  > testCachingForMatrices(3000)
  [1] "Iteration rdpeng#1 seconds: 18"
  [1] "Iteration rdpeng#2 seconds: 0"
  [1] "Iteration rdpeng#3 seconds: 0"
  [1] "Iteration rdpeng#4 seconds: 0"

…s inverse. #1.  set value of the matrix rdpeng#2.  get value of the matrix rdpeng#3.  set value of the inverse rdpeng#4.  get value of the inversemakeCacheMatrix <- function(x = matrix()) {      j <- NULL     set <- function(y) {       x <<- y       j <<- NULL     }     get <- function() x     setinverse <- function(solve) j <<- solve     getinverse <- function() j     list(set = set, get = get, setinverse = setinverse, getinverse = getinverse)   } ## `cacheSolve` function computes the inverse of the "matrix" returned by `makeCacheMatrix` above.  #If the inverse has already been calculated (and the matrix has not changed), then`cacheSolve` should retrieve the inverse from the cache.  ## when giving: Error in x$getinverse : $ operator is invalid for atomic vectors cachesolve <- function(x, ...) {      i<- x$getinverse()     if(!is.null(j)) {       message("getting cached data")       return(j)     }     data <- x$get()     j<- solve(data, ...)     x$setinverse(j)     j  }


## makeCacheMatrix function creates a "matrix" object that caches its inverse.
#1.  set value of the matrix
rdpeng#2.  get value of the matrix
rdpeng#3.  set value of the inverse
rdpeng#4.  get value of the inversemakeCacheMatrix <- function(x = matrix()) {

    j <- NULL
    set <- function(y) {
      x <<- y
      j <<- NULL
    }
    get <- function() x
    setinverse <- function(solve) j <<- solve
    getinverse <- function() j
    list(set = set, get = get, setinverse = setinverse, getinverse = getinverse)
 
}
## `cacheSolve` function computes the inverse of the "matrix" returned by `makeCacheMatrix` above. 
#If the inverse has already been calculated (and the matrix has not changed), then`cacheSolve` should retrieve the inverse from the cache.

## when giving: Error in x$getinverse : $ operator is invalid for atomic vectors
cachesolve <- function(x, ...) { 
    i<- x$getinverse()
    if(!is.null(j)) {
      message("getting cached data")
      return(j)
    }
    data <- x$get()
    j<- solve(data, ...)
    x$setinverse(j)
    j

}

makeCacheMatrix <- function(x = matrix()) {
  inv <- NULL   
  set <- function(y) { rdpeng#2
    x <<- y
    inv <<- NULL
    
  }
  get <- function() x rdpeng#1
  setinverse <- function(inverse) inv <<- inverse rdpeng#3
  getinverse <- function() inv rdpeng#4
  list(set=set, get=get, setinverse=setinverse,getinverse=getinverse)
}

#This function returns the inverse of matrix,
#it checks if the inverse has already been returned first. If so, it gets the result.
#if not, it retrieve the matrix from cache

cacheSolve <- function(x, ...) {
  ## Return a matrix that is the inverse of 'x'
  inv <- x$getinverse{ ##Chitra's comment- Unexpected '{'
    if(!is.null(inv)){
      message('getting cached data')
      return (inv)
    } #Chitra's comment- If I run this code in R - I get an error stating object 'inv' not found
    data <- x$get() #Chitra's comment- $ operator is unexpected here
    inv <- solve(data) #Chitra's comment- R is not able to coerce type 'closure' to vector type 'any'
    x$setinverse(inv) #Chitra's comment- $ is unexpected
    inv #Chitra's comment- Object 'inv' not found
  } #Chitra's comment- unexpected '}'
  
}

Merge branch 'master' of github.com:swsan/ProgrammingAssignment2

# Conflicts:
#	cachematrix.R