x <- data.frame(actor = c(6,3,5,4,2,1,3,5,8,6,9,3,2,1,1),
reactor = c(2,6,3,5,4,2,1,3,5,1,6,4,3,2,5))
freqR <- freqReactor(x)
print(freqR)
Run the code above in your browser using DataLab