arrays - エラー: 配列に割り当てようとしたときに 'dimnames' 属性がありません

Question

`function(trans,initprob,N)'
{
  BrokerPosition <- c("BP", "IP", "SP")
  mysequence <- character()
  firstposition <- sample(BrokerPosition, 1, rep=TRUE, prob=initprob)
  mysequence[1]   <- firstposition

  for (i in 2:N) {
    prevposition <- mysequence[i-1]
    probabilities <- trans[prevposition,]
    BPosition <- sample(BrokerPosition, 1, rep=TRUE, prob=probabilities)
    mysequence[i] <- BPosition
  }

return(mysequence)
}

これはマルコフ連鎖をシミュレートするために作成された関数ですが、実行するたびに配列の「dimnames」属性がないというエラーが発生します。なぜこれが起こっているのか考えられます