From ea489f0b5cb7919dfc32d4e33def5af46807b504 Mon Sep 17 00:00:00 2001
From: Chris Sobczak <chris@sobczak.family>
Date: Mon, 6 Jul 2026 15:13:21 -0700
Subject: Add ordering function

---
 tests/testthat/test-get_order.R | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 tests/testthat/test-get_order.R

(limited to 'tests')

diff --git a/tests/testthat/test-get_order.R b/tests/testthat/test-get_order.R
new file mode 100644
index 0000000..0abb018
--- /dev/null
+++ b/tests/testthat/test-get_order.R
@@ -0,0 +1,15 @@
+test_that("get_order returns a character vector", {
+	p <- 10
+	X <- matrix(rnorm(100), ncol = p)
+	R <- cor(X)
+	R_order <- get_order(R)
+	is.character(R_order)
+})
+
+test_that("get_order returns a character vector the same length as p and n", {
+	p <- 10
+	X <- matrix(rnorm(100), ncol = p)
+	R <- cor(X)
+	R_order <- get_order(R)
+	length(R_order) == p
+})
-- 
cgit v1.2.3