examples of working with mlm in R