Cannot run ER_10

[raffaem]

> source("~/Documenti/financial-contagion-in-R/ER_10.R")

Attaching package: ‘igraph’

The following objects are masked from ‘package:stats’:

    decompose, spectrum

The following object is masked from ‘package:base’:

    union

Doing simulation on Average Degree: 0
Error in i_set_edge_attr(x, attr(value, "name"), index = value, value = attr(value, :
Length of new attribute value must be 1 or 101, the number of target edges, not 11
10. stop("Length of new attribute value must be ", if (length(index) !=
1) "1 or ", length(index), ", the number of target edges, not ",
length(value))
9. i_set_edge_attr(x, attr(value, "name"), index = value, value = attr(value,
"value"), check = FALSE)
8. `E<-`(`*tmp*`, value = `*vtmp*`) at create_network.R#174
7. create_network(network_size, j, type = "er") at ER_10.R#36
6. main() at ER_10.R#62
5. system.time({
results <- main()
cat("Saving the results ... ")
cat("\n") ... at ER_10.R#61
4. eval(ei, envir)
3. eval(ei, envir)
2. withVisible(eval(ei, envir))
1. source("financial-contagion-in-R/ER_10.R")