This is an helper function to create initial values F matrices for cascade networks.
CascadeFinit(sqF, ngrp, low.trig = TRUE)
sqF | Size of an F cell |
---|---|
ngrp | Number of groups |
low.trig | Fill the lower trigonal matrices with ones |
An array of sizes c(sqF, sqF, ngrp).
Bertrand Frederic, Myriam Maumy-Bertrand.
CascadeFinit(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,] 1 0 0 #> [3,] 1 1 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 #>CascadeFinit(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,] 1 0 0 0 #> [3,] 1 1 0 0 #> [4,] 1 1 1 0 #> #> , , 3 #> #> [,1] [,2] [,3] [,4] #> [1,] 0 0 0 0 #> [2,] 1 0 0 0 #> [3,] 1 1 0 0 #> [4,] 1 1 1 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,] 1 0 0 0 #> [3,] 1 1 0 0 #> [4,] 1 1 1 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 #>CascadeFinit(3,2,low.trig=FALSE)#> , , 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,] 1 0 0 #> [3,] 0 1 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 #>CascadeFinit(4,3,low.trig=FALSE)#> , , 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,] 1 0 0 0 #> [3,] 0 1 0 0 #> [4,] 0 0 1 0 #> #> , , 3 #> #> [,1] [,2] [,3] [,4] #> [1,] 0 0 0 0 #> [2,] 1 0 0 0 #> [3,] 0 1 0 0 #> [4,] 0 0 1 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,] 1 0 0 0 #> [3,] 0 1 0 0 #> [4,] 0 0 1 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 #>