cachematrix.R

## Put comments here that give an overall description of what your
## functions do

## There are two functions makeCacheMatrix, makeCacheMatrix
## makeChacheMatrix consists of set,get,setinv,getinv
## library(MASS) is used to calculate inverse for non squared
## as well as square matrices
library(MASS)
makeCacheMatrix <- function(x = matrix()) {
inv <- NULL          #initializing inverse as NULL
set <- function(y){
                x <<- y
                inv <<- NULL
}   
get <- function()x      #function to get matrix
setinv <- function(inverse)inv <<- inverse
getinv <- function(){
                    inver <- ginv(x)
                    inver%*%x           #function to obtain inverse of the matrix
                   }
list(set = set, get = get,
     setinv = stinv,
     getinv = getinv)
}


## Write a short comment describing this function
## This is used to get the cache data

cacheSolve <- function(x, ...) {
        ## Return a matrix that is the inverse of 'x'
  {
    inv <- x$getinv()
  if(!is.NULL(inv)){
                  message(" getting cached data!")
                  return(inv)
                   }
  data <- x$get()
  inv <- solve(data, ...)
  x$setinv(inv)
  inv
    }
}