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