## A random sparce "incidence" matrix :
m <- matrix(0, 5, 5)
set.seed(12)
m[runif(10, 0, length(m))] <- 1
(mm <- as(m, "dgCMatrix"))
tril(mm) # lower triangle
tril(mm, -1) # strict lower triangle
triu(mm, 1) # strict upper triangle
band(mm, -1, 1) # general band
Run the code above in your browser using DataLab