Code for the IAT package in R