From f84fa8413ce4f5ac0a799b6dabb6638ab6cfe776 Mon Sep 17 00:00:00 2001 From: Timothy Bates Date: Thu, 28 Jan 2021 18:39:05 +0000 Subject: [PATCH] * IMPROVE: `umx_read_lower` accept names for lower diag --- R/misc_and_utility.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/misc_and_utility.R b/R/misc_and_utility.R index bcf2e9ed..af570789 100644 --- a/R/misc_and_utility.R +++ b/R/misc_and_utility.R @@ -7019,7 +7019,7 @@ umx_read_lower <- function(file= "", diag= TRUE, names= NULL, ensurePD= FALSE){ n = floor((sqrt(1 + 8*m) - d)/2) if(is.null(names)){ names = paste0("X", 1:n) - }else if(length(names!= n)){ + }else if(length(names) != n){ message("names ignored as you provided ", length(names), " but the data are n = ", n, " wide.") names = paste0("X", 1:n) }