# A multinomial receiver choice model
data("Social_Evolution")
callNetwork <- defineNetwork(nodes = actors, directed = TRUE)
callNetwork <- linkEvents(
x = callNetwork, changeEvent = calls,
nodes = actors
)
callsDependent <- defineDependentEvents(
events = calls, nodes = actors,
defaultNetwork = callNetwork
)
# \dontshow{
callsDependent <- callsDependent[1:50, ]
# }
mod01 <- estimate(callsDependent ~ inertia + recip + trans,
model = "DyNAM", subModel = "choice",
estimationInit = list(
returnIntervalLogL = TRUE,
engine = "default_c"
)
)
examineOutliers(mod01)
examineChangepoints(mod01)
Run the code above in your browser using DataLab