# NOT RUN {
x <- matrix (1:16, 4, 4)
pm <- as.PartMatrix (x, 2, 2)
nm <- as.NestMatrix (pm)
#all same
x [1:2, 1:2]
nm [[1, 1]]
pm [[1, 1]]
#all same
x [1, 2]
nm [[1, 1]][1, 2]
pm [[1, 1]][1, 2]
# }
Run the code above in your browser using DataLab