Calculate scan statistics on a time series of graphs. This is done by calculating the local scan statistics for each graph and each vertex, and then normalizing across the vertices and across the time steps.
Usage
scan_stat(graphs, tau = 1, ell = 0, locality = c("us", "them"), ...)
Arguments
- graphs
A list of igraph graph objects. They must be all directed or all undirected and they must have the same number of vertices.
- tau
The number of previous time steps to consider for the time-dependent normalization for individual vertices. In other words, the current locality statistics of each vertex will be compared to this many previous time steps of the same vertex to decide whether it is significantly larger.
- ell
The number of previous time steps to consider for the aggregated scan statistics. This is essentially a smoothing parameter.
- locality
Whether to calculate the ‘us’ or ‘them’ statistics.
- ...
Extra arguments are passed to
local_scan()
.
Value
A list with entries:
- stat
The scan statistics in each time step. It is
NA
for the initialtau + ell
time steps.- arg_max_v
The (numeric) vertex ids for the vertex with the largest locality statistics, at each time step. It is
NA
for the initialtau + ell
time steps.
See also
Other scan statistics:
local_scan()
Examples
## Generate a bunch of SBMs, with the last one being different
num_t <- 20
block_sizes <- c(10, 5, 5)
p_ij <- list(p = 0.1, h = 0.9, q = 0.9)
P0 <- matrix(p_ij$p, 3, 3)
P0[2, 2] <- p_ij$h
PA <- P0
PA[3, 3] <- p_ij$q
num_v <- sum(block_sizes)
tsg <- replicate(num_t - 1, P0, simplify = FALSE) %>%
append(list(PA)) %>%
lapply(sample_sbm, n = num_v, block.sizes = block_sizes, directed = TRUE)
scan_stat(graphs = tsg, k = 1, tau = 4, ell = 2)
#> $stat
#> [1] NA NA NA NA NA NA
#> [7] -2.6250000 0.9428090 1.2121831 -4.2662676 -0.6978469 2.7919210
#> [13] 0.8315248 -0.5387745 0.4195589 0.1250000 1.1250000 -1.6995735
#> [19] -0.5738191 17.9650296
#>
#> $arg_max_v
#> [1] NA NA NA NA NA NA 4 18 10 20 3 3 11 9 16 10 3 8 18 20
#>
scan_stat(graphs = tsg, locality = "them", k = 1, tau = 4, ell = 2)
#> $stat
#> [1] NA NA NA NA NA NA
#> [7] -0.40682619 -0.15682619 0.75000000 -1.12500000 -0.94280904 4.62500000
#> [13] 0.03721615 -1.64991582 -0.78038480 -0.21113846 -0.33613846 0.62500000
#> [19] 0.37500000 11.75000000
#>
#> $arg_max_v
#> [1] NA NA NA NA NA NA 2 18 19 16 10 3 2 9 17 9 17 13 18 17
#>