# NOT RUN {
library(popdemo)
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 <- keenersk(jpMat,
method = 'keenersk',
irreducibility = 0)
print(result)
# }
Run the code above in your browser using DataLab