23 lines
389 B
R
23 lines
389 B
R
library(Biodem)
|
|
m <- matrix(c(3,2,2,1), nrow=2)
|
|
mtx.exp(m, 0)
|
|
# [,1] [,2]
|
|
# [1,] 1 0
|
|
# [2,] 0 1
|
|
mtx.exp(m, 1)
|
|
# [,1] [,2]
|
|
# [1,] 3 2
|
|
# [2,] 2 1
|
|
mtx.exp(m, 2)
|
|
# [,1] [,2]
|
|
# [1,] 13 8
|
|
# [2,] 8 5
|
|
mtx.exp(m, 3)
|
|
# [,1] [,2]
|
|
# [1,] 55 34
|
|
# [2,] 34 21
|
|
mtx.exp(m, 10)
|
|
# [,1] [,2]
|
|
# [1,] 1346269 832040
|
|
# [2,] 832040 514229
|