# NOT RUN {
library(nprcgenekeepr)
original <- c("A", "alive", "Alive", "1", "S", "Sale", "sold", "shipped",
"D", "d", "dead", "died", "deceased", "2",
"shiped", "3", "U", "4", "unknown", NA,
"Unknown", "H", "hermaphrodite", "U", "Unknown", "4")
convertStatusCodes(original)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab