# NOT RUN {
Pi <- matrix(c(0.8, 0.1, 0.1,
0.1, 0.6, 0.3,
0.2, 0.3, 0.5),
byrow=TRUE, nrow=3)
print(vector2Pi(Pi2vector(Pi)))
#------------------------------------------------
Q <- matrix(c(-8, 5, 3,
1, -4, 3,
2, 5, -7),
byrow=TRUE, nrow=3)
print(vector2Q(Q2vector(Q)))
# }
Run the code above in your browser using DataLab