Add ordering function

1 files changed, 15 insertions, 0 deletions

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
+})