Create F matrices shaped for cascade networks inference.

Source: R/global.R

This is an helper function to create F matrices with special shape used for cascade networks.

CascadeFshape(sqF, ngrp)

Arguments

sqF

Size of an F cell
ngrp

Number of groups

Value

An array of sizes c(sqF, sqF, ngrp).

Author

Bertrand Frederic, Myriam Maumy-Bertrand.

Examples


CascadeFshape(3,2)

#> , , 1
#> 
#>      [,1] [,2] [,3]
#> [1,] "0"  "0"  "0" 
#> [2,] "0"  "0"  "0" 
#> [3,] "0"  "0"  "0" 
#> 
#> , , 2
#> 
#>      [,1] [,2] [,3]
#> [1,] "0"  "0"  "0" 
#> [2,] "a1" "0"  "0" 
#> [3,] "a2" "a1" "0" 
#> 
#> , , 3
#> 
#>      [,1] [,2] [,3]
#> [1,] "0"  "0"  "0" 
#> [2,] "0"  "0"  "0" 
#> [3,] "0"  "0"  "0" 
#> 
#> , , 4
#> 
#>      [,1] [,2] [,3]
#> [1,] "0"  "0"  "0" 
#> [2,] "0"  "0"  "0" 
#> [3,] "0"  "0"  "0" 
#> 
plotF(CascadeFshape(3,2),choice = "Fshape")

CascadeFshape(4,3)

#> , , 1
#> 
#>      [,1] [,2] [,3] [,4]
#> [1,] "0"  "0"  "0"  "0" 
#> [2,] "0"  "0"  "0"  "0" 
#> [3,] "0"  "0"  "0"  "0" 
#> [4,] "0"  "0"  "0"  "0" 
#> 
#> , , 2
#> 
#>      [,1] [,2] [,3] [,4]
#> [1,] "0"  "0"  "0"  "0" 
#> [2,] "a1" "0"  "0"  "0" 
#> [3,] "a2" "a1" "0"  "0" 
#> [4,] "a3" "a2" "a1" "0" 
#> 
#> , , 3
#> 
#>      [,1] [,2] [,3] [,4]
#> [1,] "0"  "0"  "0"  "0" 
#> [2,] "a1" "0"  "0"  "0" 
#> [3,] "a2" "a1" "0"  "0" 
#> [4,] "a3" "a2" "a1" "0" 
#> 
#> , , 4
#> 
#>      [,1] [,2] [,3] [,4]
#> [1,] "0"  "0"  "0"  "0" 
#> [2,] "0"  "0"  "0"  "0" 
#> [3,] "0"  "0"  "0"  "0" 
#> [4,] "0"  "0"  "0"  "0" 
#> 
#> , , 5
#> 
#>      [,1] [,2] [,3] [,4]
#> [1,] "0"  "0"  "0"  "0" 
#> [2,] "0"  "0"  "0"  "0" 
#> [3,] "0"  "0"  "0"  "0" 
#> [4,] "0"  "0"  "0"  "0" 
#> 
#> , , 6
#> 
#>      [,1] [,2] [,3] [,4]
#> [1,] "0"  "0"  "0"  "0" 
#> [2,] "a1" "0"  "0"  "0" 
#> [3,] "a2" "a1" "0"  "0" 
#> [4,] "a3" "a2" "a1" "0" 
#> 
#> , , 7
#> 
#>      [,1] [,2] [,3] [,4]
#> [1,] "0"  "0"  "0"  "0" 
#> [2,] "0"  "0"  "0"  "0" 
#> [3,] "0"  "0"  "0"  "0" 
#> [4,] "0"  "0"  "0"  "0" 
#> 
#> , , 8
#> 
#>      [,1] [,2] [,3] [,4]
#> [1,] "0"  "0"  "0"  "0" 
#> [2,] "0"  "0"  "0"  "0" 
#> [3,] "0"  "0"  "0"  "0" 
#> [4,] "0"  "0"  "0"  "0" 
#> 
#> , , 9
#> 
#>      [,1] [,2] [,3] [,4]
#> [1,] "0"  "0"  "0"  "0" 
#> [2,] "0"  "0"  "0"  "0" 
#> [3,] "0"  "0"  "0"  "0" 
#> [4,] "0"  "0"  "0"  "0" 
#> 
plotF(CascadeFshape(4,3),choice = "Fshape")