Final Code for review

ppant · ppant · commit 7bc6f50bf7ed · 2016-02-27T11:21:28.000+05:30
Final code for test assignment
diff --git a/cachematrix.R b/cachematrix.R
@@ -50,6 +50,8 @@ cacheSolve <- function(x, ...) {
   
   return(inverse)
 }
+## end of cacheSolve
+
 ## test function
 testInverseCache <- function(mat){
   ## Pass a matrix filled with random numbers
@@ -69,6 +71,7 @@ testInverseCache <- function(mat){
   print ("Time taken after caching")
   print(timeTaken)
 }
+## End of testInverseCache
 
 ## Sample Test data
 set.seed(1)

Original file line number	Diff line number	Diff line change
`@@ -50,6 +50,8 @@ cacheSolve <- function(x, ...) {`
`50`	`50`
`51`	`51`	`return(inverse)`
`52`	`52`	`}`
	`53`	`+## end of cacheSolve`
	`54`	`+`
`53`	`55`	`## test function`
`54`	`56`	`testInverseCache <- function(mat){`
`55`	`57`	`## Pass a matrix filled with random numbers`
`@@ -69,6 +71,7 @@ testInverseCache <- function(mat){`
`69`	`71`	`print ("Time taken after caching")`
`70`	`72`	`print(timeTaken)`
`71`	`73`	`}`
	`74`	`+## End of testInverseCache`
`72`	`75`
`73`	`76`	`## Sample Test data`
`74`	`77`	`set.seed(1)`