R nested for loops merge data frames

I have a data frame in which each column is a time series of numbers (from 0 to 8) representing different behaviors during animal courtship. I would like to check if there is a pattern such as a given behavior is followed more frequently by another one. I have written a function that allow me to do calculate the frequencies of behaviours that follow a given behavior after a particular time