Create Profile Function with lmer