Implemented sortrows from base Matlab

R/sortrows.R

@@ -0,0 +1,15 @@
+#' @title Sort rows of matrix or table
+#' @description Emulates the behavior of the `sortrows` function on Matlab
+#' @param A matrix
+#' @param column ordering column
+sortrows <- function(A, column = 1) {
+    if (length(column) == 1) {
+        new_row_order <- order(A[, column])
+    } else if (length(column) == 2) {
+        new_row_order <- order(A[, column[1]], A[, column[2]])
+    } else {
+        stop("Not yet implemented for 2+ tie-breakers")
+    }
+    A_reordered <- A[new_row_order, ]
+    return(A_reordered)
+}

man/sortrows.Rd

@@ -0,0 +1,16 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/sortRows.R
+\name{sortrows}
+\alias{sortrows}
+\title{Sort rows of matrix or table}
+\usage{
+sortrows(A, column = 1)
+}
+\arguments{
+\item{A}{matrix}
+
+\item{column}{ordering column}
+}
+\description{
+Emulates the behavior of the `sortrows` function on Matlab
+}