# 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 <- elo(jpMat,
method='elow',
Kfactor=32,
xiparameter=400,
initScore=2000,
round=10,
ties.method='average')
print(result)
# }
Run the code above in your browser using DataLab