Implemented Cached Matrix Inverse

Fro Programming Assignment 2
> mdat
     [,1] [,2]
[1,]    1    3
[2,]    2    4

> cmdat
$set
function (y) 
{
    x <<- y
    inverse <<- NULL
}
<environment: 0x0000000012ff22d8>

$get
function () 
x
<environment: 0x0000000012ff22d8>

$setinverse
function (inverse) 
inverse <<- inverse
<environment: 0x0000000012ff22d8>

$getinverse
function () 
inverse
<environment: 0x0000000012ff22d8>

> cmdat=makeCacheMatrix(mdat)
> cacheSolve(cmdat)
     [,1] [,2]
[1,]   -2  1.5
[2,]    1 -0.5
> cacheSolve(cmdat)
getting cached data
     [,1] [,2]
[1,]   -2  1.5
[2,]    1 -0.5