Small changes

Author: sashaegorov

cachematrix.R

@@ -1,31 +1,29 @@
 # Hi! I'm the guy from Ruby Planet! And I love clear code.
-# It was painfull for me to read initial version, so I've refactored all names.
+# It was painful for me to read initial version, so I've refactored all names.
 # Please Enjoy R and this MOOC. If you are interested in detailed information
 # please read detailed comment at the end of code.
 # Thanks for your review!
 
-makeCacheMatrix <- function(local_matrix = matrix()) {
-  # By default local_matrix is the empty matrix
+makeCacheMatrix <- function(original_matrix = matrix()) {
+  # By default original_matrix is the empty matrix
 
   # Initializing variable supposed for cached solution
   cached_solution <- NULL
 
+  # Setting/Getting original matrix
   set_matrix <- function(arg) {
-    local_matrix <<- arg
+    original_matrix <<- arg
     cached_solution <<- NULL
   }
-  get_matrix <- function() local_matrix
+  get_matrix <- function() original_matrix
 
-  # Setting cached solution
+  # Setting/Getting cached solution
   set_solved <- function(solution) cached_solution <<- solution
-  # Getting cached solution
   get_solved <- function() cached_solution
 
   # Return list of functions list of functions:
-  #  - `set_matrix` - set the value of the matrix
-  #  - `get_matrix` - get the value of the matrix
-  #  - `set_solved` - set the value of the inverted matrix
-  #  - `get_solved` - get the value of the inverted matrix
+  #  - `get_matrix`/`set_matrix` get/set the value of the original matrix
+  #  - `get_solved`/`set_solved` get/set the value of the inverted matrix
 
   list(
     set_matrix = set_matrix, # ...$set_matrix
@@ -51,3 +49,31 @@ cacheSolve <- function(cache_matrix, ...) {
     return(solution)
   }
 }
+
+## But how to check if this works ... and really caches?
+## First of all create matrix.
+
+## This small matrix will *just* show you the message...
+## There is no difference in sence of time for such small matrix
+# m <- matrix(rnorm(16), nrow = 4)
+
+## This will give metioned difference...
+# m <- matrix(rnorm(16000000), nrow = 4000)
+
+## Assign vector with function to `mv` variable
+# mv <- makeCacheMatrix(m)
+
+## Call cacheSolve() with `mv` as argument
+# cacheSolve(mv)
+
+## You will get result with delay:
+# ...
+# [n,  ] -1.0133707610  0.5960284005 -4.543966e-01
+# [n+1,]  1.7333438756  0.1842437258  3.645269e-01
+
+## Call it again cacheSolve() with `mv` as argument
+## You will get result from cache. Here is output:
+# Getting cached matrix
+# ...
+# [n, ] -1.0133707610  0.5960284005 -4.543966e-01
+# [n+1,]  1.7333438756  0.1842437258  3.645269e-01