R/statdistr.R

In DTMCPack: Suite of Functions Related to Discrete-Time Discrete-State Markov Chains

Defines functions statdistr

Documented in statdistr

statdistr <-
function(tmat)
{
one<-round(matrix(1,nrow(tmat),ncol(tmat)))

I<-diag(nrow(tmat))
d<-rep(1,nrow(tmat))

t(d)%*%solve(I-tmat+one)
}

Try the DTMCPack package in your browser