p1 <- matrix(c(1,0,0,1), nrow = 2)
p2 <- matrix(c(0.8,0.15,0,0.2,0.7,0.2,0,0.15,0.8), nrow = 3, byrow =TRUE)
p3 <- matrix(c(0.4,0.6,0.6,0.4), nrow = 2)
mc.matrix <- list(p1,p2,p3)
check.mc.matrix(mc.matrix) # T F F
Run the code above in your browser using DataLab