Write a R program for finding stationary distribution of markanov chains.
P=t(matrix(c(c(0.5,0.4,0.1),c(0.3,0.4,0.3),c(0.2,0.3,0.5)),nrow=3)) r<-apply(P,1,sum) print(r