# forest.R
# Exercise 3.57
# Transition matrix for forest ecosystems

mat = matrix(c(.74,.26,0,0,0,0,0,0,0,0,0,0,
.11,.6,.28,.01,0,0,0,0,0,0,0,0,
.04,.18,.57,.2,.01,0,0,0,0,0,0,0,
.02,.04,.18,.52,.22,.02,0,0,0,0,0,0,
0,.01,.08,.23,.48,.17,.02,0.01,0,0,0,0,
.01,.02,.04,.07,.26,.4,.18,.02,0,0,0,0,
.01,.01,.01,.07,.08,.14,.49,.17,.02,0,0,0,
0,0,0,0,.04,.1,.24,.35,.25,.02,0,0,
0,0,0,.08,.25,0,.17,.17,.33,0,0,0,
0,0,0,0,0,0,.12,.38,0,0,.5,0,
0,0,0,0,0,0,0,0,0,.33,.0,.67,
0,0,0,0,0,0,0,0,0,0,1,0),nrow=12,byrow=T)