powered by
lookup(x, lookup.array)
sample1 <- data.frame(A=1:10, B=letters[1:10]);
Run the code above in your browser using DataLab