powered by
stationdistTPM(M)
P <- matrix(nrow=3,ncol=3) # An example P[1,] <- c(1/3,1/3,1/3) P[2,] <- c(1/4,1/2,1/4) P[3,] <- c(1/6,1/3,1/2) stationdistTPM(P)
Run the code above in your browser using DataLab