{"push_id":740759900,"size":1,"distinct_size":1,"ref":"refs/heads/master","head":"b5390c7eb804fb5879b534cfd7a9dc57a09a0485","before":"7f657dd22ac20d22698c53b23f0057e1a12c09b7","commits":[{"sha":"b5390c7eb804fb5879b534cfd7a9dc57a09a0485","author":{"email":"dca747c9d6148da723e01162594c4d723daffd9a@gmail.com","name":"scifiss"},"message":"My workout for this task\n\nThis is my actual code. I am not sure if my codes are \"commit-ed\" to the\nrepository....Don't get its meaning.\n\n## function makeCacheMatrix creates a list of functions that\n## set the value of the matrix in lexical scoping: set(x)\n## get the value of the matrix in the cache: get()\n## set the value of the inverse of the matrix into the cache:\nsetinv(invx)\n## get the value of the inverse of the matrix into the cache: getinv()\nmakeCacheMatrix <- function(x=matrix())\n{\n# creates a special \"matrix\" object that can cache its inverse.\n\ninv <- NULL\n\nset <- function(y)\n{\nx <<- y\ninv <<- NULL\n}\n\nget <- function() x\n\nsetinv <- function(invx) inv <<- invx\n\ngetinv <- function() inv\n\nlist(set = set,\nget = get,\nsetinv = setinv,\ngetinv = getinv)\n}\n\n## function cacheSolve read the output of makeCacheMatrix\ncacheSolve <- function(x, ...)\n{\n# computes the inverse of the special \"matrix\" returned by\nmakeCacheMatrix above.\n# If the inverse has already been calculated (and the matrix has not\nchanged),\n# then the cachesolve should retrieve the inverse from the cache.\n## return a matrix that is inverse of x\ninv <- x$getinv()\nif(!is.null(inv)) {\nmessage(\"getting cached data\")\nreturn(inv)\n}\ndata <- x$get()\n\ninv <- solve(data, diag(nrow(data)))\nx$setinv(inv)\ninv\n\n}","distinct":true,"url":"https://api.github.com/repos/scifiss/ProgrammingAssignment2/commits/b5390c7eb804fb5879b534cfd7a9dc57a09a0485"}]}