Use lapply by group in a function with 2 arguments in R

Question

I would like to calculate the roc of several variables in different groups, fixing only the response variable, here\'s what I\'ve been trying below:

library(pROC)