From 7b5ae67133d7f258694b7c6a035a2c57d4910a49 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Fri, 3 Jan 2020 20:08:06 -0300
Subject: [PATCH] Adds a new function.
---
mpaer_functions.R | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/mpaer_functions.R b/mpaer_functions.R
index 9e38293..866cce0 100644
--- a/mpaer_functions.R
+++ b/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 = ""))
+}
--
GitLab