data(objectcodes)
data(objectsales)
objectsales$product <- code(objectsales$product, objectcodes)
codes(c("Hammer", "Electric Drill"), objectcodes)
codes(c("Hammer", "Electric Drill"), cl(objectsales$product))
Run the code above in your browser using DataLab