<p dir="ltr">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. </p>
<p dir="ltr">myfun <- function(x) c(media=mean(x), desvio=sd(x)))</p>
<p dir="ltr">Não testei mas é certo de funcionar. </p>
<p dir="ltr">À disposição. <br>
Walmes. </p>