B <- matrix (c(0.2, 0.8, 0.4, 0.6), nrow = 2, byrow = TRUE)
transmatrix2sequence(B, length = 10)
transmatrix2sequence(B, length = 10, score = c(-2,1))
transmatrix2sequence(B, length = 10, score = c("A","B"))
MyTransMat <-
matrix(c(0.3,0.1,0.1,0.1,0.4,
0.2,0.2,0.1,0.2,0.3,
0.3,0.4,0.1,0.1,0.1,
0.3,0.3,0.1,0.0,0.3,
0.1,0.1,0.2,0.3,0.3),
ncol = 5, byrow=TRUE)
MySeq.CM <- transmatrix2sequence(matrix = MyTransMat,length=90, score =c(-2,-1,0,2,3))
MySeq.CM
Run the code above in your browser using DataLab