diff --git a/R/argmin.R b/R/argmin.R
new file mode 100644
index 0000000..4d50d1c
--- /dev/null
+++ b/R/argmin.R
@@ -0,0 +1,12 @@
+argmin <- function(v) {
+  #  ARGMIN Return as a subscript vector the location of the smallest element of a multidimensional array v.
+  #  indices <- argmin(v)
+  #  Returns the first minimum in the case of ties.
+  #  Example:
+  #  X = [2 8 4 7 3 9]
+  #  argmin[X] <- [1 1], i.e., row 1 column 1
+  m <- i <- NA
+  c(m, i) %<-% matlab2r::min(v)
+  indices <- ind2subv(mysize(v), i)
+  return(indices)
+}