R/summarauto1.R

In Tomas19840823/transportas_v2: Transport Optimisation Problem

#'
#'
#' This function
#' @param data A matrix
#' @keywords summarauto1
#' @export 1
#' @examples 1
#' @export

summarauto1 <- function(data) {

  data <- as.matrix(data)
  data <- length(data[,1])
  return(data)

}