# 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