This auxiliary function determines the stationary distribution from a transition matrix.
stationary(P)
the stationary probability vector.
a transition matrix, i.e., a square matrix where all rows sum to 1.
Leonhard Held
Cgrouped_norm <- contactmatrix(normalize = TRUE) Cgrouped_norm (p <- stationary(Cgrouped_norm)) (Cpowered <- make_powerC(Cgrouped_norm)(1e6)) stopifnot(all.equal(Cpowered[1,], p))
Run the code above in your browser using DataLab