R/print.transiogram.R

In spMC: Continuous-Lag Spatial Markov Chains

Defines functions print.transiogram

Documented in print.transiogram

print.transiogram <-
function(x, ...) {
  mylen <- length(x$lags)
  for(i in 1:mylen) {
    cat(x$type, "transition probabilities at lag:", x$lags[i], "\n\n")
    print(x$Tmat[,,i], ...)
    if(i != mylen) cat("\n")
  }
  invisible(x)
}

Try the spMC package in your browser