Create a number of Erdos-Renyi random graphs with identical parameters, and connect them with the specified number of negative ties.

sample_islands_signed(islands.n, islands.size, islands.pin, n.inter)

Arguments

islands.n

The number of islands in the graph.

islands.size

The size of the islands in the graph.

islands.pin

The probability of intra-island edges.

n.inter

number of negative edges between two islands.

Value

a signed igraph graph

Author

David Schoch

Examples

library(igraph)
sample_islands_signed(3, 10, 0.5, 1)
#> IGRAPH d9363c7 U--- 30 72 -- 
#> + attr: grp (v/c), sign (e/n)
#> + edges from d9363c7:
#>  [1]  1-- 4  1-- 6  1-- 7  2-- 3  2-- 4  2-- 6  2--10  3-- 5  3-- 7  4-- 5
#> [11]  4--10  5-- 6  5-- 8  6-- 7  6-- 8  6--10  7--10  8-- 9 11--12 11--14
#> [21] 11--16 11--17 11--18 11--19 12--15 12--16 12--17 12--20 13--17 13--18
#> [31] 13--19 13--20 14--15 14--16 14--17 14--18 14--20 15--16 15--17 15--18
#> [41] 16--17 16--18 17--19 21--23 21--26 21--27 21--29 21--30 22--23 22--24
#> [51] 22--27 23--24 23--25 23--26 23--28 23--29 23--30 24--26 24--29 24--30
#> [61] 25--28 25--29 25--30 26--27 26--30 27--29 27--30 28--29 29--30  3--19
#> [71] 17--23  5--28