# simulated data
clustering1 <- c(rep(1, 5), rep(2, 10), rep(3, 10))
clustering2 <- c(rep(1, 6), rep(2, 6), rep(3, 4), rep(4, 9))
dyn.cross(table(clustering1, clustering2)) # no crossings
dyn.cross(table(clustering1, clustering2)[c(2, 1, 3), ])
Run the code above in your browser using DataLab