add function for converting confidence_in_curation to factor

NAMESPACE

@@ -14,6 +14,7 @@ export(calcParentScores)
 export(chooseColVal)
 export(classif2Table)
 export(cleanNode)
+export(conf2Fct)
 export(fillNAs)
 export(freq2Scores)
 export(getAgreements)

R/utils.R

@@ -41,6 +41,22 @@ scores2Freq <- function(x) {
     )
 }
 
+
+#' Confidence in curation to factor
+#'
+#' \code{conf2Fct} converts a vector from the Confidence_in_curation
+#' column in a bugphyzz dataset to a factor.
+#'
+#' @param x A character vector.
+#'
+#' @return A factor.
+#'
+#' @export
+#'
+conf2Fct <- function(x) {
+    factor(x, levels = c('low', 'medium', 'high'), ordered = TRUE)
+}
+
 ## Function with valid ranks for taxa
 .validRanks <- function() {
     c('strain', 'species', 'genus', 'family', 'order', 'class', 'phylum',