powered by
harmonize(x)
x <- c("FOO", "Foo", "bar", "FOO", "bar", "FOO", "Bar") y <- BEQI2:::harmonize(x) stopifnot(all.equal(y, c("FOO", "FOO", "bar", "FOO", "bar", "FOO", "bar")))
Run the code above in your browser using DataLab