# NOT RUN {
P <- matrix(c(0.5, 0.25, 0.25,
0.5, 0, 0.5,
0.25, 0.25, 0.5), nrow = 3)
colnames(P) <- rownames(P) <- c("R","N","S")
ciao <- as(P, "markovchain")
is.regular(ciao)
# }
Run the code above in your browser using DataLab