# NOT RUN {
data( centrarchidae )
handle <- ratematrixMCMC(data=centrarchidae$data, phy=centrarchidae$phy.map
, gen=50000, dir=tempdir())
posterior <- readMCMC(handle, burn = 0.2, thin = 1)
testRatematrix(posterior, par = "all")
testRatematrix(posterior, par = "correlation")
testRatematrix(posterior, par = "rates")
testRatematrix(posterior, par = "correlation", plot = TRUE)
# }
Run the code above in your browser using DataLab