二维类圆环空间中的迁移矩阵:在R中创建迁移矩阵

library(markovchain)

# 定义状态集合
states <- c("A", "B", "C", "D")

# 定义迁移概率矩阵
transitionMatrix <- matrix(c(0.2, 0.3, 0.1, 0.4,
                             0.3, 0.2, 0.4, 0.1,
                             0.1, 0.4, 0.2, 0.3,
                             0.4, 0.1, 0.3, 0.2), nrow = 4, byrow = TRUE)

# 创建马尔可夫链对象
markovChain <- new("markovchain", states = states, transitionMatrix = transitionMatrix)

# 打印迁移矩阵
print(markovChain)