From debe7463ccee74345579c5634a241ba46f576be9 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Fri, 31 Jul 2020 13:59:04 +0200
Subject: [PATCH] Added min_MATLAB function

---
 R/min.R | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 R/min.R

diff --git a/R/min.R b/R/min.R
new file mode 100644
index 0000000..2d8d617
--- /dev/null
+++ b/R/min.R
@@ -0,0 +1,16 @@
+#' @title Minimum (MATLAB version)
+#' @description Finds the minimum value for each column of a matrix, potentially returning the indices instead
+#' @param X matrix
+#' @param indices return indices?
+#' @return Either a list or a vector
+#' @author Waldir Leoncio
+#' @export
+min_MATLAB <- function(X, indices = TRUE) {
+	mins <- apply(X, 2, min)
+	idx  <- sapply(seq_len(ncol(X)), function(x) match(mins[x], X[, x]))
+	if (indices) {
+		return(list(mins = mins, idx = idx))
+	} else {
+		return(mins)
+	}
+}
\ No newline at end of file