library(orca)
data("karate")
count4(data.matrix(karate))