Ejercicio

Crear 3 funciones en R:

  1. Recibir la temperatura y mostrar el mensaje.
  2. Recibir 3 argumentos y retornar el promedio (sin usar mean).
  3. Recibir 5 argumentos y retornar la desviación estándar muestral (sin usar sd).

Desarrollo

# Función 1: Mostrar mensaje con la temperatura
mostrar_temperatura <- function(temp) {
  cat("¡La temperatura es:", temp, "°C!\n")
}

# Ejemplo
mostrar_temperatura(25)
## ¡La temperatura es: 25 °C!
# Función 2: Calcular promedio de 3 números 
promedio_tres <- function(x, y, z) {
  suma <- x + y + z
  promedio <- suma / 3
  return(promedio)
}

# Ejemplo
promedio_tres(10, 20, 30)
## [1] 20
# Función 3: Calcular desviación estándar de 5 números 
desviacion_cinco <- function(a, b, c, d, e) {
  datos <- c(a, b, c, d, e)
  n <- length(datos)
  
  # Calcular media
  media <- sum(datos) / n
  
  # Calcular sumatoria de (xi - media)^2
  suma_cuadrados <- sum((datos - media)^2)
  
  # Fórmula de desviación estándar 
  s <- sqrt(suma_cuadrados / (n - 1))
  return(s)
}

# Ejemplo
desviacion_cinco(4, 8, 6, 5, 7)
## [1] 1.581139