From 04c0adc0c8929bea51daf22dc3ab5b262327a738 Mon Sep 17 00:00:00 2001
From: Matthew Fidler <matthew.fidler@gmail.com>
Date: Fri, 13 Sep 2024 13:46:10 -0500
Subject: [PATCH] rename sd->var

---
 R/poped.R | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/R/poped.R b/R/poped.R
index 87beb62f..063027e6 100644
--- a/R/poped.R
+++ b/R/poped.R
@@ -678,9 +678,24 @@ attr(rxUiGet.popedFfFun, "desc") <- "PopED parameter model (ff_fun)"
   .iniDf <- .iniDf[.w, ]
   .eta <- .poped$epsi + 1
   .n <- .iniDf$name
+  .n <- vapply(.n, function(n) {
+    if (grepl("[_.]sd$", n)) {
+      sub("([_.])sd$", "\\1var", n)
+    } else if (grepl("[_.]sd$", n)) {
+      sub("^sd([_.])", "var\\1", n)
+    } else if (grepl("[a-z]Se$", n)) {
+      sub("([a-z])Se$", "\\1Var", n)
+    } else if (grepl("^Se[A-Z]", n)) {
+      sub("^Se([A-Z])", "Var\\1", n)
+    } else if (grepl("se[A-Z]$", n)) {
+      sub("^se([A-Z])", "var\\1", n)
+    } else {
+      paste0("var_", n)
+    }
+  }, character(1), USE.NAMES=FALSE)
   .est <- c(.poped$epsiEst, setNames(c(.iniDf$est^2), .n))
   .poped$epsiNotfixed <- c(.poped$epsiNotfixed,
-                          setNames(1L - .iniDf$fix * 1L, .n))
+                           setNames(1L - .iniDf$fix * 1L, .n))
   .poped$epsiEst <- .est
   .poped$epsi <- .eta
   return(paste0("epsi[,", .eta, "]"))