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)
Run the code above in your browser using DataLab