# first example
m <- matrix(nrow = 3, byrow = TRUE,
dimnames = list(c('r1','r2','r3'),
c('c1','c2','c3')),
c(10, 0, 4,
0, 0, 0,
5, 0, 7))
m
m2 <- drop_empty_rc(m)
m2
## second example
m <- matrix(nrow = 3, byrow = TRUE,
dimnames = list(c('r1','r2','r3'),
c('c1','c2','c3')),
c(0, 0, 4,
0, 0, 0,
0, 0, 7))
m
m2 <- drop_empty_rc(m)
m2
## third example
m <- matrix(nrow = 3, byrow = TRUE,
dimnames = list(c('r1','r2','r3'),
c('c1','c2','c3')),
c(0, 0, 0,
0, 0, 0,
0, 0, 0))
m
m2 <- drop_empty_rc(m)
m2
Run the code above in your browser using DataLab