FilesExpand file tree

 master

/

testingcode.R

Copy path

BlameMore file actions

BlameMore file actions

Latest commit

 

History

History

History

27 lines (25 loc) · 854 Bytes

 master

/

testingcode.R

Top

File metadata and controls

• Code
• Blame

27 lines (25 loc) · 854 Bytes

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

## This code is provided by a classmate in the discussion forum.

## It's used to test whether my code is correct.

## Make sure I set the working directory before running it.

# Test your code

source("draft.R")

#

# generate matrix, and the inverse of the matrix.

size <- 100 # size of the matrix edge, don't make this too big

mymatrix <- matrix(rnorm(size^2), nrow=size, ncol=size)

mymatrix.inverse <- solve(mymatrix)

#

# now solve the matrix via the cache-method

#

special.matrix <- makeCacheMatrix(mymatrix)

#

# this should take long, since it's the first go

special.solved.1 <- cacheSolve(special.matrix)

#

# this should be lightning fast

special.solved.2 <- cacheSolve(special.matrix)

#

# check if all solved matrices are identical

identical(mymatrix.inverse, special.solved.1) & identical(mymatrix.inverse, special.solved.2)

#

# should return TRUE