# NOT RUN {
jpMat <- matrix(data=c(5,4,3,0, 5,5,3,1, 0,0,0,5, 0,0,2,0, 4,0,0,3, 1,0,0,4),
nrow=6,
byrow=TRUE)
result <- markov(jpMat,
method='markovvl',
dampingFactor=0.85,
ties.method='average')
print(result)
# }
Run the code above in your browser using DataLab