R/cornr.R

corn <- function(mat) {
  rows <- head(seq_len(nrow(mat)), 10)
  cols <- head(seq_len(ncol(mat)), 10)
  mat[rows, cols, drop = FALSE]
}
thomasp85/masochist documentation built on May 29, 2019, 9:53 a.m.