mutate with map error- Can't handle function r

Question

This seems like a simple error but I can\'t get through it. The function works with each model but not in the map function. Any thoughts?

library