m <- matrix(c(1, 0, 1,
1, 0, 1),
dimnames = list(c("r1", "r2"), c("c1", "c2", "c3")),
nrow = 2, ncol = 3, byrow = TRUE) %>%
setrowtype("rows") %>% setcoltype("cols")
selectzerocols_byname(m)
Run the code above in your browser using DataLab