m <- matrix(c(NA,2,30,6,19,122,0,NA,18,
0,19,85,0,1,NA,3,8,84,0,0,0,NA,267,50,0,
0,0,5,NA,10,1,0,4,4,1,NA), ncol=6) #table 2, Vervaecke et al. 2000 - fleeing in bonobos
dc_test(m)
mm = matrix(c(0,9,3,6,12,18,13,0,7,17,45,6,7,2,0,5,8,0,11,26,
12,0,8,6,4,3,0,1,0,2,2,5,0,1,0,0),6,6,TRUE)
dc_test(mm,N=16)
Run the code above in your browser using DataLab