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