Add nsti2Freq function.

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: taxPPro
 Type: Package
 Title: Taxonomic and phylogenetic propagation for bugphyzz
-Version: 0.99.0
+Version: 0.99.1
 Authors@R:
     c(
         person(

NAMESPACE

@@ -14,5 +14,6 @@ export(getNsti)
 export(getSetWithIDs)
 export(getSetWithoutIDs)
 export(ltp)
+export(nsti2Freq)
 export(roundDec)
 export(scores2Freq)

R/utils.R

@@ -159,3 +159,23 @@ roundDec <- function(x) {
     ceiling(((1 / n) + 1e-06) * 10) / 10
 }
 
+
+#' NSTI to Frequency
+#'
+#' \code{nsti2Freq} converts nsti values to frequencuy keywords.
+#'
+#' @param x A numeric vectir of nsti values
+#'
+#' @return A character vector of frequency keywords.
+#' @export
+#'
+nsti2Freq <- function(x) {
+    dplyr::case_when(
+        is.na(x) ~ NA,
+        x == 0 ~ "always",
+        x > 0 & x <= 0.05 ~ "usually",
+        x > 0.05 & x <= 0.15 ~ "sometimes",
+        x > 0.15 & x <= 0.2 ~ "rarely",
+        x > 0.2 ~ "never"
+    )
+}