Faz então uma função que retorne duas estatísticas já que não está sendo aceito o vetor com nome de duas funções.

myfun <- function(x) c(media=mean(x), desvio=sd(x)))

Não testei mas é certo de funcionar.

À disposição.
Walmes.