A partir del siguiente vector:
Lagos <- c(41,72,8,93,4,37,73,190,45,22,19)
Quiero crear una función que muestre en la consola la media y la desviación estándar de ese vector y que opcionalmente pueda cambiar la media por la mediana
He realizado lo siguiente:
Lakers <- function(x){
r <- mean(x)
s <- sd(x)
t <- median(x)
print(r)
print(s)
print(t)
}
La función responde correctamente pero el gran problema es que no se como indicarle a esa funcion que OPCIONALMENTE cambie la media por la mediana
Si podrían ayudarme a mejorarla por favor, les agradecería.