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
ds(m)
ds(m,type="P")
ds(m,norm=TRUE)
Run the code above in your browser using DataLab