Shortcut to a lapply equivalent to apply a function to each 2D matrix contained in a scanList Written analogously to vapply(). Values returned by .f should be a similarly dimensionned matrix as the first one contained in the 3D array

Source: R/scanList_tools.R

Shortcut to a lapply equivalent to apply a function to each 2D matrix contained in a scanList Written analogously to vapply(). Values returned by .f should be a similarly dimensionned matrix as the first one contained in the 3D array

sLapply(sL, FUN, ...)

Arguments

sL

a scanList object (see simunet())
FUN

a function, to apply to each 2D matrix contained in sL
...

extra argument to be passed, notably named arguments used by .f (see lapply())

Value

a 3D array onto which the function has been applied to each scan

Examples

set.seed(42)
n <- 5L
samp.effort <- 100L

# Adjacency matrix import
## random directed adjacency matrix
Adj <- sample(1:samp.effort,n * n) |>
  matrix(nrow = 5,dimnames = list(letters[1:n],letters[1:n]))
Adj[lower.tri(Adj,diag = TRUE)] <- 0L
Adj

#>   a   b  c  d  e
#> a 0 100 37 27 58
#> b 0   0 20 36 42
#> c 0   0  0  5 93
#> d 0   0  0  0 30
#> e 0   0  0  0  0

sL <- simunet(Adj = Adj,samp.effort = samp.effort,mode = "upper",n.scans = 120L)
sL |> sLapply(function(scan) {scan[1,2] <- NA;scan})

#> 
#> scan: 1            
#> a . NA 1 . 1
#> b .  . . . .
#> c .  . . . 1
#> d .  . . . .
#> e .  . . . .
#> 
#> scan: 2            
#> a . NA . . .
#> b .  . . . 1
#> c .  . . . 1
#> d .  . . . .
#> e .  . . . .
#> 
#> ... ( 117  more scans)
#> 
#> scan: 120            
#> a . NA . . 1
#> b .  . 1 1 .
#> c .  . . . 1
#> d .  . . . 1
#> e .  . . . .
#> 
#> 
#> Hidden attributes:
#> scanList.type - raw.scanList - Adj - samp.effort - n.scans - mode
#> Adj.subfun - edge.Prob