# NOT RUN {
##############################################################################
### Example taken from Vervaecke et al. (2007): ###
##############################################################################
X <- matrix(c(0,58,50,61,32,37,29,39,25,8,0,22,22,9,27,20,10,48,
3,3,0,19,29,12,13,19,8,5,8,9,0,33,38,35,32,57,
4,7,9,1,0,28,26,16,23,4,3,0,0,6,0,7,6,12,
2,0,4,1,4,4,0,5,3,0,2,1,1,5,8,3,0,10,3,1,3,0,0,4,1,2,0),
nrow=9,byrow=TRUE)
individuals <- c("V","VS","B","FJ","PR","VB","TOR","MU","ZV")
res <- getwl(X,names=individuals,method="Dij")
print(res,digits=3)
# }
Run the code above in your browser using DataLab