# NOT RUN {
data(moodyContactSim)
tiedDuration(moodyContactSim)
data(McFarland_cls33_10_16_96)
# compute ratio of incoming vs. outgoing speach acts
outDur <- tiedDuration(cls33_10_16_96, mode='counts',neighborhood = 'out')
inDur <- tiedDuration(cls33_10_16_96, mode='counts',neighborhood = 'in')
outDur / inDur
# }
Run the code above in your browser using DataLab