赞
踩
#计算一个矩阵的A的n次方
- f <- function(A, n = 1)
- {
- if(n ==1)
- {
- return(A)
- }
- else
- {
- return(A%*%f(A,n-1)) #主要理解递归
- }
- }
-
-
- X <- matrix(1:9, ncol = 3)
- X
- f(X,3)
X <- matrix(1:9, ncol = 3)
X
f(X,3)

Copyright © 2003-2013 www.wpsshop.cn 版权所有,并保留所有权利。