Criar função para o ks.test aplicado ao contexto de crédito

Pessoal,
Boa noite.

Eu tenho uma dúvida. Em especial, eu desejo criar uma função que facilite o cálculo do two-sample Kolmogorov-Smirnov test - ks.test() - a função do R. Além disso, eu gostaria de deixar ela fácil para meu chefe também usá-la.
De forma geral, ks.test, dentro do meu contexto, recebe dois vetores numéricos.

Deixa eu dar um exemplo que facilita.

Eu recebo um data frame que apresenta 2 colunas:
ALVO - é uma coluna que recebe valores 0 ou 1 (variável binária);
ESCORE - é uma coluna que recebe valores numéricos.

O que toda vez eu faço é o seguinte
bons = df - filter (ALVO == 0) - select (ESCORE) (- é como se fosse o pipe)
maus = df - filter (ALVO == 1) - select (ESCORE)

depois é ks.test(bons$,maus$)

O que eu queria é fazer uma função que recebesse três argumentos
dataframe
coluna do ALVO
coluna de ESCORE
e caculasse o teste ks

Eu preciso disso pois o meu chefe não entende de R e quer algo prático.
Se alguém puder ajudar, eu agradeço.

Obrigado