Estimating interaction preferences in R