statesNames<-c("a","b","c")
markovB<-new("markovchain", states=statesNames, transitionMatrix=
matrix(c(0.2,0.5,0.3,
0,1,0,
0.1,0.8,0.1),nrow=3, byrow=TRUE, dimnames=list(statesNames,statesNames)
))
is.accessible(markovB,"a","c")
Run the code above in your browser using DataLab