#Create a simple event list
el <- cbind(1:6, c(4,4,4,1,3,4), c(1,2,3,3,1,1))
#Convert to matrix form
as.sociomatrix.eventlist(el, 4)
#Can also store n as an attribute
attr(el, "n") <- 4
as.sociomatrix.eventlist(el)
Run the code above in your browser using DataLab