ain in R