在R中不能拟合马尔可夫模型

我正在用R为我的任务做马尔可夫过程。我已经设计了我的矩阵，但问题是我不能把我的矩阵放入马尔可夫对象中。错误是

validObject（.Object）中出错：

无效的类“markovchain”对象： 1：错误！行总和不等于一个检查位置：2

无效的类“markovchain”对象：2:错误！行和不等于一个支票 职位：4

无效的类“markovchain”对象：3:错误！行和 不等于一个检查位置：6

此外：警告信息：

在if（check==FALSE）{：
条件的长度大于1，并且只使用第一个元素

这是我的密码

library(markovchain)
areaStates <- c("1","2","3","4","5","6","7")
areaMatrix <- matrix(data = c(0,0.2,0,0.2,0.2,0.2,0.2,
                              0.33,0,0.33,0.33,0,0,0,
                              0,0,1,0,0,0,0,
                              0.33,0.33,0.33,0,0,0,0,
                              1,0,0,0,0,0,0,
                              0.5,0,0,0,1,0,0.5,
                              0.5,0,0,0,0,0.5,0), byrow = T, nrow = 7,
                     dimnames = list(areaStates, areaStates))
area <- new("markovchain", states = areaStates, byrow = T,
                 transitionMatrix = areaMatrix, name = "Area")

库（markovchain）
areaStates那么矩阵的第6行呢？它的概率为0.5、0.5、1，这远远不能等于1。错误指向导致问题的行，请尝试运行
行和（areaMatrix）
那么矩阵的第6行呢？它的概率为0.5、0.5、1，这远远不是1的总和。错误指向导致问题的行，请尝试运行
行和（areaMatrix）