## A dog's preferences for six samples of food
mat <- matrix(c(0, 1, 1, 0, 1, 1,
0, 0, 0, 1, 1, 0,
0, 1, 0, 1, 1, 1,
1, 0, 0, 0, 0, 0,
0, 0, 0, 1, 0, 1,
0, 1, 0, 1, 0, 0), 6, 6, byrow=TRUE)
circular(mat) # moderate consistency
Run the code above in your browser using DataLab