Update 'showcase.R'

Signed-off-by: Maximilian Löffler <[email protected]>

showcase.R

@@ -289,6 +289,14 @@ for (range in names(cf.data)) {
 }
 print(run.lapply(cf.data, "get.class.name"))
 
+cf.data = split.data.time.based(x.data, time.period = "18 month", split.basis = c("commits", "issues"))
+for (range in names(cf.data)) {
+    y.data = cf.data[[range]]
+    y = NetworkBuilder$new(project.data = y.data, network.conf = net.conf)
+    plot.network(y$get.bipartite.network())
+}
+print(run.lapply(cf.data, "get.class.name"))
+
 mybins = c("2012-07-10 15:58:00", "2012-07-15 16:02:00", "2012-07-20 16:04:00", "2012-07-25 16:06:30")
 cf.data = split.data.time.based(x.data, bins = mybins)
 for (range in names(cf.data)) {