problem with output when using networkdynamic

[luneauaymeric]

Hi, I am faced a problem with networkdynamic output: 30 new edges have been added to my network while they did not exist in the original edgelist. And, I don't know why.

For instance, in the original dynamic edgelist used to produced a dynamic network, the vertex 24 is connected to vertex 1 through one edge. This connection last fron step 5 to step 6.

	onset	terminus	tail	head	onset.censored	terminus.censored	duration
115	5.00	6.00	1	24	TRUE	TRUE	1.00

But, after I created my dynamic network with networkdynamic, three news edges have been created betweent node 24 and nodes 3, 9, 13.

	onset	terminus	tail	head	onset.censored	terminus.censored	duration	edge.id
1	0.00	33.00	3.00	24.00	TRUE	TRUE	33.00	44.00
2	0.00	33.00	9.00	24.00	TRUE	TRUE	33.00	112.00
3	0.00	33.00	13.00	24.00	TRUE	TRUE	33.00	161.00
4	5.00	6.00	1.00	24.00	FALSE	FALSE	1.00	286.00

Here is my code:

load("issued_networkdynamic.RData")

static_node <- static_node[,0:2]

net <- network(static_edge,
  vertex.attr = static_node,
  directed = TRUE,
  bipartite = FALSE,
  multiple = FALSE,
  loops = FALSE
)

dynamic_edge <- dynamic_edge[,0:7]

dynet <- networkDynamic(
  net,
  edge.spells = dynamic_edge,
  vertex.spells = dynamic_node,
  #create.TEAs = TRUE
)

# Here we can see that there are 30 new edges => why ?
t <- as.data.frame(dynet)

timeline(dynet)

# reconcile.edge.activity allows to correct conflicts between edges and vertices, but there are still edges which did not exist in the original edgelist
reconcile.edge.activity(net = dynet, mode = "reduce.to.vertices", active.default = TRUE)

render.d3movie(dynet, 
               animation.mode='kamadakawai',
               usearrows = T,
               displaylabels = T, label= "vertex.id")

And data can be found here : https://github.com/luneauaymeric/dynamic_graph_with_ndtv/blob/main/issued_networkdynamic.RData