hi below is my code. I am wondering is there a way to shorten it to be more efficient? create_model_function is a function I created. my concern here is just this is too messy and too long and maybe can become more generalizable. thank u so much!

```
# happiness as outcome for models. use regular and log rate
dragon_model_happiness <- c(create_model_function(dragons_only, "happiness_rate"),
create_model_function(dragons_only, "log_happiness_rate"))
all_animals_models_happiness <- c(create_model_function(all_animals,"happiness_rate"),
create_model_function(all_animals,"log_happiness_rate"))
# agility as outcome for models. use regular and log rate
dragon_model_agility <- c(create_model_function(dragons_only, "agility_rate"),
create_model_function(dragons_only, "log_agility_rate"))
all_animals_models_agility <- c(create_model_function(all_animals, "agility_rate"),
create_model_function(all_animals, "log_agility_rate"))
```