Adds a new function.

mpaer_functions.R

@@ -117,3 +117,10 @@ latin_square <- function(n_trat) {
     attr(design, "matrix") <- M
     return(design)
 }
+
+as_letters <- function(x) {
+    xs <- strsplit(trimws(as.character(x)), "")
+    xs <- lapply(xs, as.integer)
+    m <- max(unlist(xs))
+    sapply(xs, function(i) paste(rev(letters[m - i + 1]), collapse = ""))
+}