# \donttest{
data("Fisheries_Treaties_6070")
states <- defineNodes(states)
states <- linkEvents(states, sovchanges, attribute = "present")
states <- linkEvents(states, regchanges, attribute = "regime")
states <- linkEvents(states, gdpchanges, attribute = "gdp")
bilatnet <- defineNetwork(bilatnet, nodes = states, directed = FALSE)
bilatnet <- linkEvents(bilatnet, bilatchanges, nodes = states)
updateStates <- as.data.frame(
states,
time = as.numeric(as.POSIXct("1965-12-31"))
)
updateNet <- as.matrix(bilatnet, time = as.numeric(as.POSIXct("1965-12-31")))
# }
Run the code above in your browser using DataLab