# NOT RUN {
x <- matrix (1:100, 10, 10)
###########
#NestMatrix
###########
msub <- NestMatrix (4, 4)
nm1 <- NestMatrix (4, 4)
nm2 <- NestMatrix (4, 4, recursive=TRUE, default.value=msub)
nm3 <- as.NestMatrix (PartMatrix (5, 5, 2:4, 2:4) )
nm1
nm2
nm3
###########
#PartMatrix
###########
pm <- as.PartMatrix (x, 5, c (2, 4, 6, 8) )
pm
pm [[1, 4]]
###########
#SectMatrix
###########
vmap <- n22 (
    1, 10, #1
    1, 10,
    3, 10, #2
    3, 10,
    5, 10, #3
    5, 10,
    7, 10, #4
    7, 10,
    9, 10, #5
    9, 10)
sm <- as.SectMatrix (x, vmap=vmap)
sm
getSect (sm, 4)
# }
Run the code above in your browser using DataLab