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))
freqA <- freqActor(x)
print(freqA)
Run the code above in your browser using DataLab