statesNames=c("a","b")
mcA<-new("markovchain", transitionMatrix=matrix(c(0.7,0.3,0.1,0.9),byrow=TRUE, nrow=2,
dimnames=list(statesNames,statesNames)
))
is.irreducible(mcA)
Run the code above in your browser using DataLab