# NOT RUN {
# Test on a character
fastIsEqual("a", "a")
fastIsEqual("a", "b")
# Test on a vector
myVector <- rep(x = "a", 10000)
fastIsEqual(myVector, myVector)
# Test on a data.table
fastIsEqual(messy_adult, messy_adult)
# }
Run the code above in your browser using DataLab