```
library(markovchain)
alpha<-0.005
Q<-matrix(c(0,.5-alpha,1-.5+alpha,1-.5+alpha,0,.5-alpha,.5-alpha,1-.5+alpha,0),3,3)
P<-matrix(c(0,.1-alpha,1-.1+alpha,1-.75+alpha,0,.75-alpha,.75-alpha,1-.75+alpha,0),3,3)
new("markovchain",states=as.character(0:2),byrow=FALSE,P)->mk
new("markovchain",states=as.character(0:2),byrow=FALSE,Q)->m0
new("markovchain",states=as.character(0:2),byrow=FALSE,.5*Q+.5*P)->mf
```