R/row_count.R

In QGameTheory: Quantum Game Theory Simulator

##############################################################################
#                                                                            #
#                              ROW COUNTS                                    #
#                                                                            #
##############################################################################

#' @title
#' Number of rows of a vector/matrix
#'
#' @description
#' This function counts the number of rows of a vector or a matrix
#'
#' @param M A vector/matrix
#'
#' @return An integer that gives the number of rows in a vector or a matrix.
#'
#' @usage
#' row_count(M)
#'
#' @examples
#' init()
#' row_count(Q$Q01)
#' row_count(Q$lambda5)
#' row_count(Q$Qt12)
#'
#' @export
#'

row_count <- function(M){
  if (is.null(dim(M))){
    return(NROW(t(M)))
  }
  return(NROW(M))
}