R/matrix_head.R

In jlivsey/livsey: Helper R functions

#' View upper left head of a matrix.
#' Analog to base R head() function for matrix
#'
#' @param M matrix
#' @param n number of rows/cols to print (default is 10)
#' @param round specify an integer to pass to the round function
#'
#' @return prints M[1:n, 1:n]
#' @export
#'

matrix_head = function(M, n=10, round_integer=NA){
  if(is.na(round_integer)){
    print(M[1:n, 1:n])
  }else{
    print(round(M[1:n, 1:n], round_integer))
  }
}