The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.

Graph Rewiring Functions

library(clustAnalytics)

Transferred Weight Selection

In the weighted case, the switching algorithm transfers a certain amount of weight from some edges to others. The package provides two settings, which we will choose according to what type of weighted graph we are working with.

Complete graphs with a fixed upper bound

These graphs have an edge between every pair of vertices, which will usually be the result of applying some function to each pair. For example, networks resulting from computing correlations of time series (where each series corresponds to a vertex, and the edge weights are the correlations between series) fall into this category.

We show an example built from correlations of currency exchange time series . In this network vertices are pairs of exchange rates, and the edge weights are the correlations of their corresponding time series, scaled to the interval \([0,1]\). In this case, the appropriate setting is the one that keeps the variance of the edge weights constant.

data(g_forex, package="clustAnalytics")
rewireCpp(g=g_forex, weight_sel="const_var", lower_bound=0, upper_bound=1)
#> This graph was created by an old(er) igraph version.
#>   Call upgrade_graph() on it to use with the current igraph version
#>   For now we convert it on the fly...
#> IGRAPH 3db0a95 UNW- 78 5843 -- 
#> + attr: name (v/c), TRUE (v/c), weight (e/n)
#> + edges from 3db0a95 (vertex names):
#>  [1] JPYUSD--NZDJPY JPYUSD--MXNUSD CHFUSD--SGDSEK HKDCAD--SGDSEK SEKCHF--SGDNZD
#>  [6] CADUSD--SGDSEK JPYUSD--NZDCAD NZDCHF--SGDSEK NZDUSD--SGDNZD NZDCNY--SGDSEK
#> [11] NZDAUD--SGDCNY JPYUSD--CNYUSD AUDUSD--SGDSEK JPYUSD--CHFEUR CNYGBP--SGDNZD
#> [16] JPYUSD--AUDEUR JPYUSD--NZDCHF GBPUSD--SGDSEK JPYUSD--SGDSEK JPYUSD--NZDAUD
#> [21] HKDGBP--SGDSEK CHFUSD--SGDNZD NZDAUD--SGDNZD JPYUSD--SGDNZD GBPUSD--CHFAUD
#> [26] HKDCNY--SGDNZD GBPUSD--SGDGBP AUDUSD--SGDCNY MXNUSD--SGDSEK JPYUSD--CNYCHF
#> [31] CADCHF--SGDNZD GBPUSD--SEKUSD AUDGBP--SGDSEK GBPJPY--SGDSEK JPYUSD--SEKUSD
#> [36] JPYUSD--SEKNZD SGDUSD--SGDSEK CADUSD--SGDCAD GBPUSD--NZDMXN GBPUSD--HKDNZD
#> + ... omitted several edges

More sparse graphs with weights that are non-negative but not necessarily upper bounded

This describes most commonly found weighted graphs, where the weights quantify some characteristic of the edges. Multigraphs also fit here, if we reinterpret them as weighted graphs where the edge weight is the number of parallel edges between each pair of vertices.

This is the case for the famous karate club graph from Zachary.

data(karate, package="igraphdata")
rewired_karate <- rewireCpp(karate, weight_sel="max_weight")
#> This graph was created by an old(er) igraph version.
#>   Call upgrade_graph() on it to use with the current igraph version
#>   For now we convert it on the fly...
oldpar <- par(mfrow=c(1,2), mai=c(0,0.1,0.3,0.1)) #save original parameters
plot(karate, main="karate")
plot(rewired_karate, main="rewired_karate")

par(oldpar) #restore original parameters

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.