Plot Sipp Transition matrix

PlotSippTransitionMatrix(ttable,
  path = "~/Dropbox/mobility/output/data/sipp")

Examples

# NOT RUN {
load('~/Dropbox/mobility/SIPP/Sipp_aggby_age.RData')
tt <- merged[from!=to,table(from,to)]
PlotSippTransitionMatrix(tt)
# }