Implemented caching

Used new R class system

Author: Odomontois

cachematrix.R

@@ -1,15 +1,36 @@
-## Put comments here that give an overall description of what your
-## functions do
+## Creating a special object for calculating properties of matrix
+## e.g. inverse with caching options
 
-## Write a short comment describing this function
+## Class for creating matrices with 
+## ability to cache results of operations
 
-makeCacheMatrix <- function(x = matrix()) {
+CachedOpsMatrix <- setRefClass("CachedOpsMatrix",
+	fields = list(
+		value = "matrix", 
+		inverse = function(){
+			if(is.null(my.inverse)) 
+				my.inverse <<- solve(value)
+			else message("getting cached data")
+			my.inverse
+		}),
+	methods = list(
+		initialize = function(...){
+			my.inverse <<- NULL
+			callSuper(...)
+		})
+	)
+
+## Creating new caching object
 
+makeCacheMatrix <- function(x = matrix()) {
+	CachedOpsMatrix$new(value = x)
 }
 
 
-## Write a short comment describing this function
+## Calculating inverse of matrix
+## once it was calculated result is cached
+## and returned in any consecutive call
 
 cacheSolve <- function(x, ...) {
-        ## Return a matrix that is the inverse of 'x'
+	x$inverse
 }