cachematrix.R

hey friends , above is my peer grading assignment... sample test results are provided here also

## sample test results

#> k<-makeCacheMatrix(x)
#> k$set(matrix(1:4,2,2))
#> k$get()
#[,1] [,2]
#[1,]    1    3
#[2,]    2    4

#> cacheSolve(k)
#[,1] [,2]
#[1,]   -2  1.5
#[2,]    1 -0.5