#define the markov chain
statesNames=c("a","b","c")
mcB<-new("markovchain", states=statesNames, transitionMatrix=
matrix(c(0.2,0.5,0.3,
0,0.2,0.8,
0.1,0.8,0.1),nrow=3, byrow=TRUE, dimnames=list(statesNames,
statesNames)
))
#show the sequence
outs<-markovchainSequence(n=100,markovchain=mcB, t0="a")Run the code above in your browser using DataLab