在R中的循环中替换矩阵中的行
我试图在R中编写一个简单的马尔可夫模型。为了生成马尔可夫跟踪,我创建了一个空矩阵,其中ncol=状态数,nrow=循环数。我正在编写一个函数,使用循环将矩阵的每一行替换为每一个循环,但循环失败了在R中的循环中替换矩阵中的行,r,for-loop,matrix,R,For Loop,Matrix,我试图在R中编写一个简单的马尔可夫模型。为了生成马尔可夫跟踪,我创建了一个空矩阵,其中ncol=状态数,nrow=循环数。我正在编写一个函数,使用循环将矩阵的每一行替换为每一个循环,但循环失败了 Rounds<-function(cycles,TransMatrix){ for (i in 1:nrow(MarkovTrace)){ MarkovTrace[i+1,]<-as.vector(MarkovTrace[i,]%*%TransMatrix) } } Rou
Rounds<-function(cycles,TransMatrix){
for (i in 1:nrow(MarkovTrace)){
MarkovTrace[i+1,]<-as.vector(MarkovTrace[i,]%*%TransMatrix)
}
}
Rounds当你说它失败时,你可以使用,它告诉你什么?它是否说数组索引超出了范围?如果是,则循环直到nrow(MarkovTrace)-1
。(注意-1。)您可能喜欢的关于函数编程的简短注释:或者,将MarkovTrace
作为第三个参数传递给函数,并在for
循环后返回MarkovTrace
。
MarkovTrace[2,]<-as.vector(MarkovTrace[1,]%*%TransMatrix)
MarkovTrace[3,]<-as.vector(MarkovTrace[2,]%*%TransMatrix)