head and tail for matrices
head2(x, n = 6, m = n)
tail2(x, n = 6, m = n)M <- matrix(1:20, nrow=4)
head2(M)
#>      [,1] [,2] [,3] [,4] [,5]
#> [1,]    1    5    9   13   17
#> [2,]    2    6   10   14   18
#> [3,]    3    7   11   15   19
#> [4,]    4    8   12   16   20
head2(M, 2)
#>      [,1] [,2]
#> [1,]    1    5
#> [2,]    2    6