R/summarkl1.R

In Tomas19840823/transportas_v2: Transport Optimisation Problem

#'
#'
#' This function
#' @param data A Number
#' @keywords summarkl1
#' @export 1
#' @examples 1
#' @export

summarkl1 <- function(data) {

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

}