data(devries98)
h.index(devries98)
ISI(devries98)
##
data(adv)
SEQ <- elo.seq(winner=adv$winner, loser=adv$loser, Date=adv$Date)
mat <- creatematrix(SEQ)
res <- ISI(mat)
# note that this matrix is not sufficiently linear to justify such ordering
h.index(mat)
Run the code above in your browser using DataLab